BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / Mac F2C 1.2.1.sit / Mac F2C 1.2.1 / Test Project ƒ / test.cp (C++ Output) < prev next >
MacBinary | 1995-03-22 | 19.0 KB | [TEXT/KAHL]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Wed Mar 22 17:21:13 1995, modified Wed Mar 22 17:21:13 1995, creator Think C, type ASCII, 18770 bytes "test.cp (C++ Output)" , at 0x49d2 410 bytes resource	default (weak)
`99%`	file	data	default
`49%`	TrID	Macintosh plain text (MacBinary)	default
`33%`	TrID	raw Group 3 FAX bitmap	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[KAHL]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 14 74 65 73 74 2e 63 | 70 20 28 43 2b 2b 20 4f |..test.c|p (C++ O|
|00000010| 75 74 70 75 74 29 00 00 | 00 00 00 00 00 00 00 00 |utput)..|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 49 52 00 | 00 01 9a ab 96 53 59 ab |.....IR.|.....SY.|
|00000060| 96 53 59 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.SY.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ca 09 00 00 |........|........|
|00000080| 2f 2a 20 74 65 73 74 2e | 66 20 2d 2d 20 74 72 61 |/* test.|f -- tra|
|00000090| 6e 73 6c 61 74 65 64 20 | 62 79 20 66 32 63 20 28 |nslated |by f2c (|
|000000a0| 76 65 72 73 69 6f 6e 20 | 31 39 39 34 31 31 31 33 |version |19941113|
|000000b0| 29 2e 0d 20 20 20 59 6f | 75 20 6d 75 73 74 20 6c |)..   Yo|u must l|
|000000c0| 69 6e 6b 20 74 68 65 20 | 72 65 73 75 6c 74 69 6e |ink the |resultin|
|000000d0| 67 20 6f 62 6a 65 63 74 | 20 66 69 6c 65 20 77 69 |g object| file wi|
|000000e0| 74 68 20 74 68 65 20 6c | 69 62 72 61 72 69 65 73 |th the l|ibraries|
|000000f0| 3a 0d 09 2d 6c 66 32 63 | 20 2d 6c 6d 20 20 20 28 |:..-lf2c| -lm   (|
|00000100| 69 6e 20 74 68 61 74 20 | 6f 72 64 65 72 29 0d 2a |in that |order).*|
|00000110| 2f 0d 0d 23 69 66 64 65 | 66 20 5f 5f 63 70 6c 75 |/..#ifde|f __cplu|
|00000120| 73 70 6c 75 73 0d 65 78 | 74 65 72 6e 20 22 43 22 |splus.ex|tern "C"|
|00000130| 20 7b 0d 23 65 6e 64 69 | 66 0d 23 69 6e 63 6c 75 | {.#endi|f.#inclu|
|00000140| 64 65 20 22 66 32 63 2e | 68 22 0d 0d 2f 2a 20 54 |de "f2c.|h"../* T|
|00000150| 61 62 6c 65 20 6f 66 20 | 63 6f 6e 73 74 61 6e 74 |able of |constant|
|00000160| 20 76 61 6c 75 65 73 20 | 2a 2f 0d 0d 73 74 61 74 | values |*/..stat|
|00000170| 69 63 20 69 6e 74 65 67 | 65 72 20 63 5f 5f 39 20 |ic integ|er c__9 |
|00000180| 3d 20 39 3b 0d 73 74 61 | 74 69 63 20 69 6e 74 65 |= 9;.sta|tic inte|
|00000190| 67 65 72 20 63 5f 5f 31 | 20 3d 20 31 3b 0d 73 74 |ger c__1| = 1;.st|
|000001a0| 61 74 69 63 20 69 6e 74 | 65 67 65 72 20 63 5f 5f |atic int|eger c__|
|000001b0| 31 30 20 3d 20 31 30 3b | 0d 73 74 61 74 69 63 20 |10 = 10;|.static |
|000001c0| 69 6e 74 65 67 65 72 20 | 63 5f 5f 33 20 3d 20 33 |integer |c__3 = 3|
|000001d0| 3b 0d 73 74 61 74 69 63 | 20 69 6e 74 65 67 65 72 |;.static| integer|
|000001e0| 20 63 5f 5f 34 20 3d 20 | 34 3b 0d 73 74 61 74 69 | c__4 = |4;.stati|
|000001f0| 63 20 69 6e 74 65 67 65 | 72 20 63 5f 5f 35 20 3d |c intege|r c__5 =|
|00000200| 20 35 3b 0d 73 74 61 74 | 69 63 20 64 6f 75 62 6c | 5;.stat|ic doubl|
|00000210| 65 72 65 61 6c 20 63 5f | 62 31 36 38 20 3d 20 2e |ereal c_|b168 = .|
|00000220| 33 33 33 33 33 33 33 33 | 33 33 33 33 33 33 33 33 |33333333|33333333|
|00000230| 31 3b 0d 0d 2f 2a 20 4d | 61 69 6e 20 70 72 6f 67 |1;../* M|ain prog|
|00000240| 72 61 6d 20 2a 2f 20 4d | 41 49 4e 5f 5f 28 29 0d |ram */ M|AIN__().|
|00000250| 7b 0d 20 20 20 20 2f 2a | 20 46 6f 72 6d 61 74 20 |{.    /*| Format |
|00000260| 73 74 72 69 6e 67 73 20 | 2a 2f 0d 20 20 20 20 73 |strings |*/.    s|
|00000270| 74 61 74 69 63 20 63 68 | 61 72 20 66 6d 74 5f 39 |tatic ch|ar fmt_9|
|00000280| 39 5b 5d 20 3d 20 22 28 | 61 31 29 22 3b 0d 0d 20 |9[] = "(|a1)";.. |
|00000290| 20 20 20 2f 2a 20 42 75 | 69 6c 74 69 6e 20 66 75 |   /* Bu|iltin fu|
|000002a0| 6e 63 74 69 6f 6e 73 20 | 2a 2f 0d 20 20 20 20 69 |nctions |*/.    i|
|000002b0| 6e 74 65 67 65 72 20 73 | 5f 77 73 6c 65 28 63 69 |nteger s|_wsle(ci|
|000002c0| 6c 69 73 74 20 2a 29 2c | 20 64 6f 5f 6c 69 6f 28 |list *),| do_lio(|
|000002d0| 69 6e 74 65 67 65 72 20 | 2a 2c 20 69 6e 74 65 67 |integer |*, integ|
|000002e0| 65 72 20 2a 2c 20 63 68 | 61 72 20 2a 2c 20 66 74 |er *, ch|ar *, ft|
|000002f0| 6e 6c 65 6e 29 2c 20 0d | 09 20 20 20 20 65 5f 77 |nlen), .|.    e_w|
|00000300| 73 6c 65 28 29 2c 20 73 | 5f 72 73 66 65 28 63 69 |sle(), s|_rsfe(ci|
|00000310| 6c 69 73 74 20 2a 29 2c | 20 64 6f 5f 66 69 6f 28 |list *),| do_fio(|
|00000320| 69 6e 74 65 67 65 72 20 | 2a 2c 20 63 68 61 72 20 |integer |*, char |
|00000330| 2a 2c 20 66 74 6e 6c 65 | 6e 29 2c 20 0d 09 20 20 |*, ftnle|n), ..  |
|00000340| 20 20 65 5f 72 73 66 65 | 28 29 3b 0d 20 20 20 20 |  e_rsfe|();.    |
|00000350| 2f 2a 20 53 75 62 72 6f | 75 74 69 6e 65 20 2a 2f |/* Subro|utine */|
|00000360| 20 69 6e 74 20 73 5f 73 | 74 6f 70 28 63 68 61 72 | int s_s|top(char|
|00000370| 20 2a 2c 20 66 74 6e 6c | 65 6e 29 3b 0d 0d 20 20 | *, ftnl|en);..  |
|00000380| 20 20 2f 2a 20 4c 6f 63 | 61 6c 20 76 61 72 69 61 |  /* Loc|al varia|
|00000390| 62 6c 65 73 20 2a 2f 0d | 20 20 20 20 63 68 61 72 |bles */.|    char|
|000003a0| 20 6a 75 6e 6b 5b 32 5d | 3b 0d 20 20 20 20 65 78 | junk[2]|;.    ex|
|000003b0| 74 65 72 6e 20 2f 2a 20 | 53 75 62 72 6f 75 74 69 |tern /* |Subrouti|
|000003c0| 6e 65 20 2a 2f 20 69 6e | 74 20 61 6c 67 5f 74 65 |ne */ in|t alg_te|
|000003d0| 73 74 5f 5f 28 69 6e 74 | 65 67 65 72 20 2a 29 2c |st__(int|eger *),|
|000003e0| 20 69 5f 6f 5f 74 65 73 | 74 5f 5f 28 29 2c 20 0d | i_o_tes|t__(), .|
|000003f0| 09 20 20 20 20 66 6c 74 | 5f 74 65 73 74 5f 5f 28 |.    flt|_test__(|
|00000400| 69 6e 74 65 67 65 72 20 | 2a 29 2c 20 69 6e 74 5f |integer |*), int_|
|00000410| 74 65 73 74 5f 5f 28 69 | 6e 74 65 67 65 72 20 2a |test__(i|nteger *|
|00000420| 29 2c 20 74 72 6e 5f 74 | 65 73 74 5f 5f 28 29 3b |), trn_t|est__();|
|00000430| 0d 0d 20 20 20 20 2f 2a | 20 46 6f 72 74 72 61 6e |..    /*| Fortran|
|00000440| 20 49 2f 4f 20 62 6c 6f | 63 6b 73 20 2a 2f 0d 20 | I/O blo|cks */. |
|00000450| 20 20 20 73 74 61 74 69 | 63 20 63 69 6c 69 73 74 |   stati|c cilist|
|00000460| 20 69 6f 5f 5f 5f 31 20 | 3d 20 7b 20 30 2c 20 36 | io___1 |= { 0, 6|
|00000470| 2c 20 30 2c 20 30 2c 20 | 30 20 7d 3b 0d 20 20 20 |, 0, 0, |0 };.   |
|00000480| 20 73 74 61 74 69 63 20 | 63 69 6c 69 73 74 20 69 | static |cilist i|
|00000490| 6f 5f 5f 5f 32 20 3d 20 | 7b 20 30 2c 20 36 2c 20 |o___2 = |{ 0, 6, |
|000004a0| 30 2c 20 30 2c 20 30 20 | 7d 3b 0d 20 20 20 20 73 |0, 0, 0 |};.    s|
|000004b0| 74 61 74 69 63 20 63 69 | 6c 69 73 74 20 69 6f 5f |tatic ci|list io_|
|000004c0| 5f 5f 33 20 3d 20 7b 20 | 30 2c 20 35 2c 20 30 2c |__3 = { |0, 5, 0,|
|000004d0| 20 66 6d 74 5f 39 39 2c | 20 30 20 7d 3b 0d 20 20 | fmt_99,| 0 };.  |
|000004e0| 20 20 73 74 61 74 69 63 | 20 63 69 6c 69 73 74 20 |  static| cilist |
|000004f0| 69 6f 5f 5f 5f 35 20 3d | 20 7b 20 30 2c 20 36 2c |io___5 =| { 0, 6,|
|00000500| 20 30 2c 20 30 2c 20 30 | 20 7d 3b 0d 20 20 20 20 | 0, 0, 0| };.    |
|00000510| 73 74 61 74 69 63 20 63 | 69 6c 69 73 74 20 69 6f |static c|ilist io|
|00000520| 5f 5f 5f 36 20 3d 20 7b | 20 30 2c 20 36 2c 20 30 |___6 = {| 0, 6, 0|
|00000530| 2c 20 30 2c 20 30 20 7d | 3b 0d 20 20 20 20 73 74 |, 0, 0 }|;.    st|
|00000540| 61 74 69 63 20 63 69 6c | 69 73 74 20 69 6f 5f 5f |atic cil|ist io__|
|00000550| 5f 37 20 3d 20 7b 20 30 | 2c 20 35 2c 20 30 2c 20 |_7 = { 0|, 5, 0, |
|00000560| 66 6d 74 5f 39 39 2c 20 | 30 20 7d 3b 0d 20 20 20 |fmt_99, |0 };.   |
|00000570| 20 73 74 61 74 69 63 20 | 63 69 6c 69 73 74 20 69 | static |cilist i|
|00000580| 6f 5f 5f 5f 38 20 3d 20 | 7b 20 30 2c 20 36 2c 20 |o___8 = |{ 0, 6, |
|00000590| 30 2c 20 30 2c 20 30 20 | 7d 3b 0d 20 20 20 20 73 |0, 0, 0 |};.    s|
|000005a0| 74 61 74 69 63 20 63 69 | 6c 69 73 74 20 69 6f 5f |tatic ci|list io_|
|000005b0| 5f 5f 39 20 3d 20 7b 20 | 30 2c 20 36 2c 20 30 2c |__9 = { |0, 6, 0,|
|000005c0| 20 30 2c 20 30 20 7d 3b | 0d 20 20 20 20 73 74 61 | 0, 0 };|.    sta|
|000005d0| 74 69 63 20 63 69 6c 69 | 73 74 20 69 6f 5f 5f 5f |tic cili|st io___|
|000005e0| 31 30 20 3d 20 7b 20 30 | 2c 20 35 2c 20 30 2c 20 |10 = { 0|, 5, 0, |
|000005f0| 66 6d 74 5f 39 39 2c 20 | 30 20 7d 3b 0d 20 20 20 |fmt_99, |0 };.   |
|00000600| 20 73 74 61 74 69 63 20 | 63 69 6c 69 73 74 20 69 | static |cilist i|
|00000610| 6f 5f 5f 5f 31 31 20 3d | 20 7b 20 30 2c 20 36 2c |o___11 =| { 0, 6,|
|00000620| 20 30 2c 20 30 2c 20 30 | 20 7d 3b 0d 20 20 20 20 | 0, 0, 0| };.    |
|00000630| 73 74 61 74 69 63 20 63 | 69 6c 69 73 74 20 69 6f |static c|ilist io|
|00000640| 5f 5f 5f 31 32 20 3d 20 | 7b 20 30 2c 20 36 2c 20 |___12 = |{ 0, 6, |
|00000650| 30 2c 20 30 2c 20 30 20 | 7d 3b 0d 20 20 20 20 73 |0, 0, 0 |};.    s|
|00000660| 74 61 74 69 63 20 63 69 | 6c 69 73 74 20 69 6f 5f |tatic ci|list io_|
|00000670| 5f 5f 31 33 20 3d 20 7b | 20 30 2c 20 35 2c 20 30 |__13 = {| 0, 5, 0|
|00000680| 2c 20 66 6d 74 5f 39 39 | 2c 20 30 20 7d 3b 0d 20 |, fmt_99|, 0 };. |
|00000690| 20 20 20 73 74 61 74 69 | 63 20 63 69 6c 69 73 74 |   stati|c cilist|
|000006a0| 20 69 6f 5f 5f 5f 31 34 | 20 3d 20 7b 20 30 2c 20 | io___14| = { 0, |
|000006b0| 36 2c 20 30 2c 20 30 2c | 20 30 20 7d 3b 0d 20 20 |6, 0, 0,| 0 };.  |
|000006c0| 20 20 73 74 61 74 69 63 | 20 63 69 6c 69 73 74 20 |  static| cilist |
|000006d0| 69 6f 5f 5f 5f 31 35 20 | 3d 20 7b 20 30 2c 20 36 |io___15 |= { 0, 6|
|000006e0| 2c 20 30 2c 20 30 2c 20 | 30 20 7d 3b 0d 20 20 20 |, 0, 0, |0 };.   |
|000006f0| 20 73 74 61 74 69 63 20 | 63 69 6c 69 73 74 20 69 | static |cilist i|
|00000700| 6f 5f 5f 5f 31 36 20 3d | 20 7b 20 30 2c 20 35 2c |o___16 =| { 0, 5,|
|00000710| 20 30 2c 20 66 6d 74 5f | 39 39 2c 20 30 20 7d 3b | 0, fmt_|99, 0 };|
|00000720| 0d 20 20 20 20 73 74 61 | 74 69 63 20 63 69 6c 69 |.    sta|tic cili|
|00000730| 73 74 20 69 6f 5f 5f 5f | 31 37 20 3d 20 7b 20 30 |st io___|17 = { 0|
|00000740| 2c 20 36 2c 20 30 2c 20 | 30 2c 20 30 20 7d 3b 0d |, 6, 0, |0, 0 };.|
|00000750| 20 20 20 20 73 74 61 74 | 69 63 20 63 69 6c 69 73 |    stat|ic cilis|
|00000760| 74 20 69 6f 5f 5f 5f 31 | 38 20 3d 20 7b 20 30 2c |t io___1|8 = { 0,|
|00000770| 20 36 2c 20 30 2c 20 30 | 2c 20 30 20 7d 3b 0d 20 | 6, 0, 0|, 0 };. |
|00000780| 20 20 20 73 74 61 74 69 | 63 20 63 69 6c 69 73 74 |   stati|c cilist|
|00000790| 20 69 6f 5f 5f 5f 31 39 | 20 3d 20 7b 20 30 2c 20 | io___19| = { 0, |
|000007a0| 36 2c 20 30 2c 20 30 2c | 20 30 20 7d 3b 0d 20 20 |6, 0, 0,| 0 };.  |
|000007b0| 20 20 73 74 61 74 69 63 | 20 63 69 6c 69 73 74 20 |  static| cilist |
|000007c0| 69 6f 5f 5f 5f 32 30 20 | 3d 20 7b 20 30 2c 20 36 |io___20 |= { 0, 6|
|000007d0| 2c 20 30 2c 20 30 2c 20 | 30 20 7d 3b 0d 20 20 20 |, 0, 0, |0 };.   |
|000007e0| 20 73 74 61 74 69 63 20 | 63 69 6c 69 73 74 20 69 | static |cilist i|
|000007f0| 6f 5f 5f 5f 32 31 20 3d | 20 7b 20 30 2c 20 36 2c |o___21 =| { 0, 6,|
|00000800| 20 30 2c 20 30 2c 20 30 | 20 7d 3b 0d 0d 0d 2f 2a | 0, 0, 0| };.../*|
|00000810| 20 09 54 68 69 73 20 69 | 73 20 61 20 46 4f 52 54 | .This i|s a FORT|
|00000820| 52 41 4e 20 70 72 6f 67 | 72 61 6d 20 74 6f 20 74 |RAN prog|ram to t|
|00000830| 65 73 74 20 4d 61 63 20 | 46 32 43 20 76 31 2e 31 |est Mac |F2C v1.1|
|00000840| 20 2a 2f 0d 20 20 20 20 | 73 5f 77 73 6c 65 28 26 | */.    |s_wsle(&|
|00000850| 69 6f 5f 5f 5f 31 29 3b | 0d 20 20 20 20 64 6f 5f |io___1);|.    do_|
|00000860| 6c 69 6f 28 26 63 5f 5f | 39 2c 20 26 63 5f 5f 31 |lio(&c__|9, &c__1|
|00000870| 2c 20 22 2a 2a 2a 2a 2a | 20 20 20 49 6e 70 75 74 |, "*****|   Input|
|00000880| 2f 4f 75 74 70 75 74 20 | 54 65 73 74 20 20 20 2a |/Output |Test   *|
|00000890| 2a 2a 2a 2a 22 2c 20 33 | 33 4c 29 3b 0d 20 20 20 |****", 3|3L);.   |
|000008a0| 20 65 5f 77 73 6c 65 28 | 29 3b 0d 20 20 20 20 69 | e_wsle(|);.    i|
|000008b0| 5f 6f 5f 74 65 73 74 5f | 5f 28 29 3b 0d 20 20 20 |_o_test_|_();.   |
|000008c0| 20 73 5f 77 73 6c 65 28 | 26 69 6f 5f 5f 5f 32 29 | s_wsle(|&io___2)|
|000008d0| 3b 0d 20 20 20 20 64 6f | 5f 6c 69 6f 28 26 63 5f |;.    do|_lio(&c_|
|000008e0| 5f 39 2c 20 26 63 5f 5f | 31 2c 20 22 5c 6e 2a 2a |_9, &c__|1, "\n**|
|000008f0| 2a 2a 2a 20 20 20 45 6e | 64 20 6f 66 20 49 2f 4f |***   En|d of I/O|
|00000900| 20 74 65 73 74 2c 20 68 | 69 74 20 72 65 74 75 72 | test, h|it retur|
|00000910| 6e 20 74 6f 20 63 6f 6e | 74 69 6e 75 65 2e 5c 0d |n to con|tinue.\.|
|00000920| 2e 2e 22 2c 20 35 31 4c | 29 3b 0d 20 20 20 20 65 |..", 51L|);.    e|
|00000930| 5f 77 73 6c 65 28 29 3b | 0d 20 20 20 20 73 5f 72 |_wsle();|.    s_r|
|00000940| 73 66 65 28 26 69 6f 5f | 5f 5f 33 29 3b 0d 20 20 |sfe(&io_|__3);.  |
|00000950| 20 20 64 6f 5f 66 69 6f | 28 26 63 5f 5f 31 2c 20 |  do_fio|(&c__1, |
|00000960| 6a 75 6e 6b 2c 20 32 4c | 29 3b 0d 20 20 20 20 65 |junk, 2L|);.    e|
|00000970| 5f 72 73 66 65 28 29 3b | 0d 20 20 20 20 73 5f 77 |_rsfe();|.    s_w|
|00000980| 73 6c 65 28 26 69 6f 5f | 5f 5f 35 29 3b 0d 20 20 |sle(&io_|__5);.  |
|00000990| 20 20 64 6f 5f 6c 69 6f | 28 26 63 5f 5f 39 2c 20 |  do_lio|(&c__9, |
|000009a0| 26 63 5f 5f 31 2c 20 22 | 5c 6e 2a 2a 2a 2a 2a 20 |&c__1, "|\n***** |
|000009b0| 20 20 49 6e 74 65 67 65 | 72 20 4d 61 74 68 20 54 |  Intege|r Math T|
|000009c0| 65 73 74 20 20 20 2a 2a | 2a 2a 2a 22 2c 20 33 34 |est   **|***", 34|
|000009d0| 4c 29 3b 0d 20 20 20 20 | 65 5f 77 73 6c 65 28 29 |L);.    |e_wsle()|
|000009e0| 3b 0d 20 20 20 20 69 6e | 74 5f 74 65 73 74 5f 5f |;.    in|t_test__|
|000009f0| 28 26 63 5f 5f 31 30 29 | 3b 0d 20 20 20 20 73 5f |(&c__10)|;.    s_|
|00000a00| 77 73 6c 65 28 26 69 6f | 5f 5f 5f 36 29 3b 0d 20 |wsle(&io|___6);. |
|00000a10| 20 20 20 64 6f 5f 6c 69 | 6f 28 26 63 5f 5f 39 2c |   do_li|o(&c__9,|
|00000a20| 20 26 63 5f 5f 31 2c 20 | 22 5c 6e 2a 2a 2a 2a 2a | &c__1, |"\n*****|
|00000a30| 20 20 20 45 6e 64 20 6f | 66 20 69 6e 74 65 67 65 |   End o|f intege|
|00000a40| 72 20 6d 61 74 68 20 74 | 65 73 74 2c 20 68 69 74 |r math t|est, hit|
|00000a50| 20 72 65 74 75 72 6e 20 | 74 6f 20 5c 0d 63 6f 6e | return |to \.con|
|00000a60| 74 69 6e 75 65 2e 2e 2e | 22 2c 20 36 30 4c 29 3b |tinue...|", 60L);|
|00000a70| 0d 20 20 20 20 65 5f 77 | 73 6c 65 28 29 3b 0d 20 |.    e_w|sle();. |
|00000a80| 20 20 20 73 5f 72 73 66 | 65 28 26 69 6f 5f 5f 5f |   s_rsf|e(&io___|
|00000a90| 37 29 3b 0d 20 20 20 20 | 64 6f 5f 66 69 6f 28 26 |7);.    |do_fio(&|
|00000aa0| 63 5f 5f 31 2c 20 6a 75 | 6e 6b 2c 20 32 4c 29 3b |c__1, ju|nk, 2L);|
|00000ab0| 0d 20 20 20 20 65 5f 72 | 73 66 65 28 29 3b 0d 20 |.    e_r|sfe();. |
|00000ac0| 20 20 20 73 5f 77 73 6c | 65 28 26 69 6f 5f 5f 5f |   s_wsl|e(&io___|
|00000ad0| 38 29 3b 0d 20 20 20 20 | 64 6f 5f 6c 69 6f 28 26 |8);.    |do_lio(&|
|00000ae0| 63 5f 5f 39 2c 20 26 63 | 5f 5f 31 2c 20 22 5c 6e |c__9, &c|__1, "\n|
|00000af0| 2a 2a 2a 2a 2a 20 20 20 | 46 6c 6f 61 74 69 6e 67 |*****   |Floating|
|00000b00| 20 50 6f 69 6e 74 20 4d | 61 74 68 20 54 65 73 74 | Point M|ath Test|
|00000b10| 20 20 20 2a 2a 2a 2a 2a | 22 2c 20 34 31 4c 29 3b |   *****|", 41L);|
|00000b20| 0d 20 20 20 20 65 5f 77 | 73 6c 65 28 29 3b 0d 20 |.    e_w|sle();. |
|00000b30| 20 20 20 66 6c 74 5f 74 | 65 73 74 5f 5f 28 26 63 |   flt_t|est__(&c|
|00000b40| 5f 5f 31 30 29 3b 0d 20 | 20 20 20 73 5f 77 73 6c |__10);. |   s_wsl|
|00000b50| 65 28 26 69 6f 5f 5f 5f | 39 29 3b 0d 20 20 20 20 |e(&io___|9);.    |
|00000b60| 64 6f 5f 6c 69 6f 28 26 | 63 5f 5f 39 2c 20 26 63 |do_lio(&|c__9, &c|
|00000b70| 5f 5f 31 2c 20 22 5c 6e | 2a 2a 2a 2a 2a 20 20 20 |__1, "\n|*****   |
|00000b80| 45 6e 64 20 6f 66 20 66 | 6c 6f 61 74 69 6e 67 20 |End of f|loating |
|00000b90| 70 6f 69 6e 74 20 6d 61 | 74 68 20 74 65 73 74 2c |point ma|th test,|
|00000ba0| 20 68 69 74 20 72 65 74 | 5c 0d 75 72 6e 20 74 6f | hit ret|\.urn to|
|00000bb0| 20 63 6f 6e 74 69 6e 75 | 65 2e 2e 2e 22 2c 20 36 | continu|e...", 6|
|00000bc0| 37 4c 29 3b 0d 20 20 20 | 20 65 5f 77 73 6c 65 28 |7L);.   | e_wsle(|
|00000bd0| 29 3b 0d 20 20 20 20 73 | 5f 72 73 66 65 28 26 69 |);.    s|_rsfe(&i|
|00000be0| 6f 5f 5f 5f 31 30 29 3b | 0d 20 20 20 20 64 6f 5f |o___10);|.    do_|
|00000bf0| 66 69 6f 28 26 63 5f 5f | 31 2c 20 6a 75 6e 6b 2c |fio(&c__|1, junk,|
|00000c00| 20 32 4c 29 3b 0d 20 20 | 20 20 65 5f 72 73 66 65 | 2L);.  |  e_rsfe|
|00000c10| 28 29 3b 0d 20 20 20 20 | 73 5f 77 73 6c 65 28 26 |();.    |s_wsle(&|
|00000c20| 69 6f 5f 5f 5f 31 31 29 | 3b 0d 20 20 20 20 64 6f |io___11)|;.    do|
|00000c30| 5f 6c 69 6f 28 26 63 5f | 5f 39 2c 20 26 63 5f 5f |_lio(&c_|_9, &c__|
|00000c40| 31 2c 20 22 5c 6e 2a 2a | 2a 2a 2a 20 20 20 41 6c |1, "\n**|***   Al|
|00000c50| 67 65 62 72 61 69 63 20 | 46 75 6e 63 74 69 6f 6e |gebraic |Function|
|00000c60| 20 54 65 73 74 20 20 20 | 2a 2a 2a 2a 2a 22 2c 20 | Test   |*****", |
|00000c70| 34 30 4c 29 3b 0d 20 20 | 20 20 65 5f 77 73 6c 65 |40L);.  |  e_wsle|
|00000c80| 28 29 3b 0d 20 20 20 20 | 61 6c 67 5f 74 65 73 74 |();.    |alg_test|
|00000c90| 5f 5f 28 26 63 5f 5f 31 | 30 29 3b 0d 20 20 20 20 |__(&c__1|0);.    |
|00000ca0| 73 5f 77 73 6c 65 28 26 | 69 6f 5f 5f 5f 31 32 29 |s_wsle(&|io___12)|
|00000cb0| 3b 0d 20 20 20 20 64 6f | 5f 6c 69 6f 28 26 63 5f |;.    do|_lio(&c_|
|00000cc0| 5f 39 2c 20 26 63 5f 5f | 31 2c 20 22 5c 6e 2a 2a |_9, &c__|1, "\n**|
|00000cd0| 2a 2a 2a 20 20 20 45 6e | 64 20 6f 66 20 61 6c 67 |***   En|d of alg|
|00000ce0| 65 62 72 61 69 63 20 66 | 75 6e 63 74 69 6f 6e 20 |ebraic f|unction |
|00000cf0| 74 65 73 74 2c 20 68 69 | 74 20 72 65 74 75 5c 0d |test, hi|t retu\.|
|00000d00| 72 6e 20 74 6f 20 63 6f | 6e 74 69 6e 75 65 2e 2e |rn to co|ntinue..|
|00000d10| 2e 22 2c 20 36 36 4c 29 | 3b 0d 20 20 20 20 65 5f |.", 66L)|;.    e_|
|00000d20| 77 73 6c 65 28 29 3b 0d | 20 20 20 20 73 5f 72 73 |wsle();.|    s_rs|
|00000d30| 66 65 28 26 69 6f 5f 5f | 5f 31 33 29 3b 0d 20 20 |fe(&io__|_13);.  |
|00000d40| 20 20 64 6f 5f 66 69 6f | 28 26 63 5f 5f 31 2c 20 |  do_fio|(&c__1, |
|00000d50| 6a 75 6e 6b 2c 20 32 4c | 29 3b 0d 20 20 20 20 65 |junk, 2L|);.    e|
|00000d60| 5f 72 73 66 65 28 29 3b | 0d 20 20 20 20 73 5f 77 |_rsfe();|.    s_w|
|00000d70| 73 6c 65 28 26 69 6f 5f | 5f 5f 31 34 29 3b 0d 20 |sle(&io_|__14);. |
|00000d80| 20 20 20 64 6f 5f 6c 69 | 6f 28 26 63 5f 5f 39 2c |   do_li|o(&c__9,|
|00000d90| 20 26 63 5f 5f 31 2c 20 | 22 5c 6e 2a 2a 2a 2a 2a | &c__1, |"\n*****|
|00000da0| 20 20 20 54 72 61 6e 73 | 63 65 6e 64 65 6e 74 61 |   Trans|cendenta|
|00000db0| 6c 20 46 75 6e 63 74 69 | 6f 6e 20 54 65 73 74 20 |l Functi|on Test |
|00000dc0| 20 20 2a 2a 2a 2a 2a 22 | 2c 20 0d 09 20 20 20 20 |  *****"|, ..    |
|00000dd0| 34 35 4c 29 3b 0d 20 20 | 20 20 65 5f 77 73 6c 65 |45L);.  |  e_wsle|
|00000de0| 28 29 3b 0d 20 20 20 20 | 74 72 6e 5f 74 65 73 74 |();.    |trn_test|
|00000df0| 5f 5f 28 29 3b 0d 20 20 | 20 20 73 5f 77 73 6c 65 |__();.  |  s_wsle|
|00000e00| 28 26 69 6f 5f 5f 5f 31 | 35 29 3b 0d 20 20 20 20 |(&io___1|5);.    |
|00000e10| 64 6f 5f 6c 69 6f 28 26 | 63 5f 5f 39 2c 20 26 63 |do_lio(&|c__9, &c|
|00000e20| 5f 5f 31 2c 20 22 5c 6e | 2a 2a 2a 2a 2a 20 20 20 |__1, "\n|*****   |
|00000e30| 45 6e 64 20 6f 66 20 74 | 72 61 6e 73 63 65 6e 64 |End of t|ranscend|
|00000e40| 65 6e 74 61 6c 20 66 75 | 6e 63 74 69 6f 6e 20 74 |ental fu|nction t|
|00000e50| 65 73 74 2c 20 68 69 74 | 5c 0d 20 72 65 74 75 72 |est, hit|\. retur|
|00000e60| 6e 20 74 6f 20 63 6f 6e | 74 69 6e 75 65 2e 2e 2e |n to con|tinue...|
|00000e70| 22 2c 20 37 31 4c 29 3b | 0d 20 20 20 20 65 5f 77 |", 71L);|.    e_w|
|00000e80| 73 6c 65 28 29 3b 0d 20 | 20 20 20 73 5f 72 73 66 |sle();. |   s_rsf|
|00000e90| 65 28 26 69 6f 5f 5f 5f | 31 36 29 3b 0d 20 20 20 |e(&io___|16);.   |
|00000ea0| 20 64 6f 5f 66 69 6f 28 | 26 63 5f 5f 31 2c 20 6a | do_fio(|&c__1, j|
|00000eb0| 75 6e 6b 2c 20 32 4c 29 | 3b 0d 20 20 20 20 65 5f |unk, 2L)|;.    e_|
|00000ec0| 72 73 66 65 28 29 3b 0d | 20 20 20 20 73 5f 77 73 |rsfe();.|    s_ws|
|00000ed0| 6c 65 28 26 69 6f 5f 5f | 5f 31 37 29 3b 0d 20 20 |le(&io__|_17);.  |
|00000ee0| 20 20 64 6f 5f 6c 69 6f | 28 26 63 5f 5f 39 2c 20 |  do_lio|(&c__9, |
|00000ef0| 26 63 5f 5f 31 2c 20 22 | 23 23 23 23 23 23 23 23 |&c__1, "|########|
|00000f00| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000f10| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000f20| 23 23 23 23 23 23 23 23 | 23 23 5c 0d 23 23 23 23 |########|##\.####|
|00000f30| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000f40| 23 23 23 23 22 2c 20 37 | 34 4c 29 3b 0d 20 20 20 |####", 7|4L);.   |
|00000f50| 20 65 5f 77 73 6c 65 28 | 29 3b 0d 20 20 20 20 73 | e_wsle(|);.    s|
|00000f60| 5f 77 73 6c 65 28 26 69 | 6f 5f 5f 5f 31 38 29 3b |_wsle(&i|o___18);|
|00000f70| 0d 20 20 20 20 64 6f 5f | 6c 69 6f 28 26 63 5f 5f |.    do_|lio(&c__|
|00000f80| 39 2c 20 26 63 5f 5f 31 | 2c 20 22 20 49 66 20 79 |9, &c__1|, " If y|
|00000f90| 6f 75 20 6e 6f 74 69 63 | 65 64 20 74 68 61 74 20 |ou notic|ed that |
|00000fa0| 66 6c 6f 61 74 69 6e 67 | 20 70 6f 69 6e 74 20 76 |floating| point v|
|00000fb0| 61 6c 75 65 73 20 64 69 | 64 20 6e 6f 74 5c 0d 20 |alues di|d not\. |
|00000fc0| 72 6f 75 6e 64 20 63 6f | 72 72 65 63 74 6c 79 20 |round co|rrectly |
|00000fd0| 77 68 65 6e 22 2c 20 37 | 31 4c 29 3b 0d 20 20 20 |when", 7|1L);.   |
|00000fe0| 20 65 5f 77 73 6c 65 28 | 29 3b 0d 20 20 20 20 73 | e_wsle(|);.    s|
|00000ff0| 5f 77 73 6c 65 28 26 69 | 6f 5f 5f 5f 31 39 29 3b |_wsle(&i|o___19);|
|00001000| 0d 20 20 20 20 64 6f 5f | 6c 69 6f 28 26 63 5f 5f |.    do_|lio(&c__|
|00001010| 39 2c 20 26 63 5f 5f 31 | 2c 20 22 20 64 69 73 70 |9, &c__1|, " disp|
|00001020| 6c 61 79 65 64 2c 20 70 | 6c 65 61 73 65 20 72 65 |layed, p|lease re|
|00001030| 61 64 20 74 68 65 20 65 | 6e 63 6c 6f 73 65 64 20 |ad the e|nclosed |
|00001040| 66 69 6c 65 20 5c 22 49 | 66 20 46 6c 6f 5c 0d 61 |file \"I|f Flo\.a|
|00001050| 74 73 20 44 6f 6e 27 74 | 20 44 69 73 70 6c 61 79 |ts Don't| Display|
|00001060| 20 52 69 67 68 74 5c 22 | 22 2c 20 37 33 4c 29 3b | Right\"|", 73L);|
|00001070| 0d 20 20 20 20 65 5f 77 | 73 6c 65 28 29 3b 0d 20 |.    e_w|sle();. |
|00001080| 20 20 20 73 5f 77 73 6c | 65 28 26 69 6f 5f 5f 5f |   s_wsl|e(&io___|
|00001090| 32 30 29 3b 0d 20 20 20 | 20 64 6f 5f 6c 69 6f 28 |20);.   | do_lio(|
|000010a0| 26 63 5f 5f 39 2c 20 26 | 63 5f 5f 31 2c 20 22 23 |&c__9, &|c__1, "#|
|000010b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000010c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000010d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000010e0| 23 5c 0d 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |#\.#####|########|
|000010f0| 23 23 23 23 23 23 23 23 | 23 23 23 22 2c 20 37 34 |########|###", 74|
|00001100| 4c 29 3b 0d 20 20 20 20 | 65 5f 77 73 6c 65 28 29 |L);.    |e_wsle()|
|00001110| 3b 0d 20 20 20 20 73 5f | 77 73 6c 65 28 26 69 6f |;.    s_|wsle(&io|
|00001120| 5f 5f 5f 32 31 29 3b 0d | 20 20 20 20 64 6f 5f 6c |___21);.|    do_l|
|00001130| 69 6f 28 26 63 5f 5f 39 | 2c 20 26 63 5f 5f 31 2c |io(&c__9|, &c__1,|
|00001140| 20 22 5c 6e 2a 2a 2a 2a | 2a 20 20 20 54 68 69 73 | "\n****|*   This|
|00001150| 20 63 6f 6d 70 6c 65 74 | 65 73 20 61 6c 6c 20 6f | complet|es all o|
|00001160| 66 20 74 68 65 20 74 65 | 73 74 73 20 20 20 2a 2a |f the te|sts   **|
|00001170| 2a 2a 2a 22 2c 20 0d 09 | 20 20 20 20 34 38 4c 29 |***", ..|    48L)|
|00001180| 3b 0d 20 20 20 20 65 5f | 77 73 6c 65 28 29 3b 0d |;.    e_|wsle();.|
|00001190| 20 20 20 20 73 5f 73 74 | 6f 70 28 22 22 2c 20 30 |    s_st|op("", 0|
|000011a0| 4c 29 3b 0d 20 20 20 20 | 72 65 74 75 72 6e 20 30 |L);.    |return 0|
|000011b0| 3b 0d 7d 20 2f 2a 20 4d | 41 49 4e 5f 5f 20 2a 2f |;.} /* M|AIN__ */|
|000011c0| 0d 0d 2f 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |../*****|********|
|000011d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0d 0d |********|*****/..|
|00001210| 2f 2a 20 09 53 75 62 72 | 6f 75 74 69 6e 65 20 74 |/* .Subr|outine t|
|00001220| 6f 20 64 6f 20 74 68 65 | 20 49 2f 4f 20 74 65 73 |o do the| I/O tes|
|00001230| 74 73 20 2a 2f 0d 0d 2f | 2a 2a 2a 2a 2a 2a 2a 2a |ts */../|********|
|00001240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001280| 2a 2a 2f 0d 2f 2a 20 53 | 75 62 72 6f 75 74 69 6e |**/./* S|ubroutin|
|00001290| 65 20 2a 2f 20 69 6e 74 | 20 69 5f 6f 5f 74 65 73 |e */ int| i_o_tes|
|000012a0| 74 5f 5f 28 29 0d 7b 0d | 20 20 20 20 2f 2a 20 46 |t__().{.|    /* F|
|000012b0| 6f 72 6d 61 74 20 73 74 | 72 69 6e 67 73 20 2a 2f |ormat st|rings */|
|000012c0| 0d 20 20 20 20 73 74 61 | 74 69 63 20 63 68 61 72 |.    sta|tic char|
|000012d0| 20 66 6d 74 5f 33 39 39 | 5b 5d 20 3d 20 22 28 61 | fmt_399|[] = "(a|
|000012e0| 31 29 22 3b 0d 20 20 20 | 20 73 74 61 74 69 63 20 |1)";.   | static |
|000012f0| 63 68 61 72 20 66 6d 74 | 5f 33 30 34 5b 5d 20 3d |char fmt|_304[] =|
|00001300| 20 22 28 35 78 2c 61 32 | 30 2c 35 28 69 31 2c 32 | "(5x,a2|0,5(i1,2|
|00001310| 78 29 2c 35 78 2c 35 28 | 66 34 2e 32 2c 32 78 29 |x),5x,5(|f4.2,2x)|
|00001320| 29 22 3b 0d 0d 20 20 20 | 20 2f 2a 20 53 79 73 74 |)";..   | /* Syst|
|00001330| 65 6d 20 67 65 6e 65 72 | 61 74 65 64 20 6c 6f 63 |em gener|ated loc|
|00001340| 61 6c 73 20 2a 2f 0d 20 | 20 20 20 6f 6c 69 73 74 |als */. |   olist|
|00001350| 20 6f 5f 5f 31 3b 0d 20 | 20 20 20 63 6c 6c 69 73 | o__1;. |   cllis|
|00001360| 74 20 63 6c 5f 5f 31 3b | 0d 0d 20 20 20 20 2f 2a |t cl__1;|..    /*|
|00001370| 20 42 75 69 6c 74 69 6e | 20 66 75 6e 63 74 69 6f | Builtin| functio|
|00001380| 6e 73 20 2a 2f 0d 20 20 | 20 20 69 6e 74 65 67 65 |ns */.  |  intege|
|00001390| 72 20 73 5f 77 73 6c 65 | 28 63 69 6c 69 73 74 20 |r s_wsle|(cilist |
|000013a0| 2a 29 2c 20 64 6f 5f 6c | 69 6f 28 69 6e 74 65 67 |*), do_l|io(integ|
|000013b0| 65 72 20 2a 2c 20 69 6e | 74 65 67 65 72 20 2a 2c |er *, in|teger *,|
|000013c0| 20 63 68 61 72 20 2a 2c | 20 66 74 6e 6c 65 6e 29 | char *,| ftnlen)|
|000013d0| 2c 20 0d 09 20 20 20 20 | 65 5f 77 73 6c 65 28 29 |, ..    |e_wsle()|
|000013e0| 2c 20 73 5f 72 73 6c 65 | 28 63 69 6c 69 73 74 20 |, s_rsle|(cilist |
|000013f0| 2a 29 2c 20 65 5f 72 73 | 6c 65 28 29 2c 20 73 5f |*), e_rs|le(), s_|
|00001400| 72 73 66 65 28 63 69 6c | 69 73 74 20 2a 29 2c 20 |rsfe(cil|ist *), |
|00001410| 64 6f 5f 66 69 6f 28 0d | 09 20 20 20 20 69 6e 74 |do_fio(.|.    int|
|00001420| 65 67 65 72 20 2a 2c 20 | 63 68 61 72 20 2a 2c 20 |eger *, |char *, |
|00001430| 66 74 6e 6c 65 6e 29 2c | 20 65 5f 72 73 66 65 28 |ftnlen),| e_rsfe(|
|00001440| 29 3b 0d 20 20 20 20 76 | 6f 69 64 20 73 5f 63 6f |);.    v|oid s_co|
|00001450| 70 79 28 63 68 61 72 20 | 2a 2c 20 63 68 61 72 20 |py(char |*, char |
|00001460| 2a 2c 20 66 74 6e 6c 65 | 6e 2c 20 66 74 6e 6c 65 |*, ftnle|n, ftnle|
|00001470| 6e 29 3b 0d 20 20 20 20 | 69 6e 74 65 67 65 72 20 |n);.    |integer |
|00001480| 66 5f 6f 70 65 6e 28 6f | 6c 69 73 74 20 2a 29 2c |f_open(o|list *),|
|00001490| 20 73 5f 77 73 75 65 28 | 63 69 6c 69 73 74 20 2a | s_wsue(|cilist *|
|000014a0| 29 2c 20 64 6f 5f 75 69 | 6f 28 69 6e 74 65 67 65 |), do_ui|o(intege|
|000014b0| 72 20 2a 2c 20 63 68 61 | 72 20 2a 2c 20 0d 09 20 |r *, cha|r *, .. |
|000014c0| 20 20 20 66 74 6e 6c 65 | 6e 29 2c 20 65 5f 77 73 |   ftnle|n), e_ws|
|000014d0| 75 65 28 29 2c 20 66 5f | 63 6c 6f 73 28 63 6c 6c |ue(), f_|clos(cll|
|000014e0| 69 73 74 20 2a 29 2c 20 | 73 5f 77 73 66 65 28 63 |ist *), |s_wsfe(c|
|000014f0| 69 6c 69 73 74 20 2a 29 | 2c 20 65 5f 77 73 66 65 |ilist *)|, e_wsfe|
|00001500| 28 29 2c 20 0d 09 20 20 | 20 20 73 5f 72 73 75 65 |(), ..  |  s_rsue|
|00001510| 28 63 69 6c 69 73 74 20 | 2a 29 2c 20 65 5f 72 73 |(cilist |*), e_rs|
|00001520| 75 65 28 29 3b 0d 0d 20 | 20 20 20 2f 2a 20 4c 6f |ue();.. |   /* Lo|
|00001530| 63 61 6c 20 76 61 72 69 | 61 62 6c 65 73 20 2a 2f |cal vari|ables */|
|00001540| 0d 20 20 20 20 63 68 61 | 72 20 74 65 78 74 5b 34 |.    cha|r text[4|
|00001550| 30 5d 3b 0d 20 20 20 20 | 72 65 61 6c 20 61 5b 35 |0];.    |real a[5|
|00001560| 5d 3b 0d 20 20 20 20 69 | 6e 74 65 67 65 72 20 69 |];.    i|nteger i|
|00001570| 2c 20 6a 5b 35 5d 3b 0d | 20 20 20 20 72 65 61 6c |, j[5];.|    real|
|00001580| 20 78 3b 0d 20 20 20 20 | 64 6f 75 62 6c 65 72 65 | x;.    |doublere|
|00001590| 61 6c 20 64 78 3b 0d 0d | 20 20 20 20 2f 2a 20 46 |al dx;..|    /* F|
|000015a0| 6f 72 74 72 61 6e 20 49 | 2f 4f 20 62 6c 6f 63 6b |ortran I|/O block|
|000015b0| 73 20 2a 2f 0d 20 20 20 | 20 73 74 61 74 69 63 20 |s */.   | static |
|000015c0| 63 69 6c 69 73 74 20 69 | 6f 5f 5f 5f 32 32 20 3d |cilist i|o___22 =|
|000015d0| 20 7b 20 30 2c 20 36 2c | 20 30 2c 20 30 2c 20 30 | { 0, 6,| 0, 0, 0|
|000015e0| 20 7d 3b 0d 20 20 20 20 | 73 74 61 74 69 63 20 63 | };.    |static c|
|000015f0| 69 6c 69 73 74 20 69 6f | 5f 5f 5f 32 33 20 3d 20 |ilist io|___23 = |
|00001600| 7b 20 30 2c 20 35 2c 20 | 30 2c 20 30 2c 20 30 20 |{ 0, 5, |0, 0, 0 |
|00001610| 7d 3b 0d 20 20 20 20 73 | 74 61 74 69 63 20 63 69 |};.    s|tatic ci|
|00001620| 6c 69 73 74 20 69 6f 5f | 5f 5f 32 35 20 3d 20 7b |list io_|__25 = {|
|00001630| 20 30 2c 20 36 2c 20 30 | 2c 20 30 2c 20 30 20 7d | 0, 6, 0|, 0, 0 }|
|00001640| 3b 0d 20 20 20 20 73 74 | 61 74 69 63 20 63 69 6c |;.    st|atic cil|
|00001650| 69 73 74 20 69 6f 5f 5f | 5f 32 36 20 3d 20 7b 20 |ist io__|_26 = { |
|00001660| 30 2c 20 36 2c 20 30 2c | 20 30 2c 20 30 20 7d 3b |0, 6, 0,| 0, 0 };|
|00001670| 0d 20 20 20 20 73 74 61 | 74 69 63 20 63 69 6c 69 |.    sta|tic cili|
|00001680| 73 74 20 69 6f 5f 5f 5f | 32 37 20 3d 20 7b 20 30 |st io___|27 = { 0|
|00001690| 2c 20 35 2c 20 30 2c 20 | 30 2c 20 30 20 7d 3b 0d |, 5, 0, |0, 0 };.|
|000016a0| 20 20 20 20 73 74 61 74 | 69 63 20 63 69 6c 69 73 |    stat|ic cilis|
|000016b0| 74 20 69 6f 5f 5f 5f 32 | 39 20 3d 20 7b 20 30 2c |t io___2|9 = { 0,|
|000016c0| 20 36 2c 20 30 2c 20 30 | 2c 20 30 20 7d 3b 0d 20 | 6, 0, 0|, 0 };. |
|000016d0| 20 20 20 73 74 61 74 69 | 63 20 63 69 6c 69 73 74 |   stati|c cilist|
|000016e0| 20 69 6f 5f 5f 5f 33 30 | 20 3d 20 7b 20 30 2c 20 | io___30| = { 0, |
|000016f0| 36 2c 20 30 2c 20 30 2c | 20 30 20 7d 3b 0d 20 20 |6, 0, 0,| 0 };.  |
|00001700| 20 20 73 74 61 74 69 63 | 20 63 69 6c 69 73 74 20 |  static| cilist |
|00001710| 69 6f 5f 5f 5f 33 31 20 | 3d 20 7b 20 30 2c 20 35 |io___31 |= { 0, 5|
|00001720| 2c 20 30 2c 20 30 2c 20 | 30 20 7d 3b 0d 20 20 20 |, 0, 0, |0 };.   |
|00001730| 20 73 74 61 74 69 63 20 | 63 69 6c 69 73 74 20 69 | static |cilist i|
|00001740| 6f 5f 5f 5f 33 33 20 3d | 20 7b 20 30 2c 20 36 2c |o___33 =| { 0, 6,|
|00001750| 20 30 2c 20 30 2c 20 30 | 20 7d 3b 0d 20 20 20 20 | 0, 0, 0| };.    |
|00001760| 73 74 61 74 69 63 20 63 | 69 6c 69 73 74 20 69 6f |static c|ilist io|
|00001770| 5f 5f 5f 33 34 20 3d 20 | 7b 20 30 2c 20 36 2c 20 |___34 = |{ 0, 6, |
|00001780| 30 2c 20 30 2c 20 30 20 | 7d 3b 0d 20 20 20 20 73 |0, 0, 0 |};.    s|
|00001790| 74 61 74 69 63 20 63 69 | 6c 69 73 74 20 69 6f 5f |tatic ci|list io_|
|000017a0| 5f 5f 33 35 20 3d 20 7b | 20 30 2c 20 35 2c 20 30 |__35 = {| 0, 5, 0|
|000017b0| 2c 20 30 2c 20 30 20 7d | 3b 0d 20 20 20 20 73 74 |, 0, 0 }|;.    st|
|000017c0| 61 74 69 63 20 63 69 6c | 69 73 74 20 69 6f 5f 5f |atic cil|ist io__|
|000017d0| 5f 33 37 20 3d 20 7b 20 | 30 2c 20 36 2c 20 30 2c |_37 = { |0, 6, 0,|
|000017e0| 20 30 2c 20 30 20 7d 3b | 0d 20 20 20 20 73 74 61 | 0, 0 };|.    sta|
|000017f0| 74 69 63 20 63 69 6c 69 | 73 74 20 69 6f 5f 5f 5f |tic cili|st io___|
|00001800| 33 38 20 3d 20 7b 20 30 | 2c 20 36 2c 20 30 2c 20 |38 = { 0|, 6, 0, |
|00001810| 30 2c 20 30 20 7d 3b 0d | 20 20 20 20 73 74 61 74 |0, 0 };.|    stat|
|00001820| 69 63 20 63 69 6c 69 73 | 74 20 69 6f 5f 5f 5f 33 |ic cilis|t io___3|
|00001830| 39 20 3d 20 7b 20 30 2c | 20 35 2c 20 30 2c 20 66 |9 = { 0,| 5, 0, f|
|00001840| 6d 74 5f 33 39 39 2c 20 | 30 20 7d 3b 0d 20 20 20 |mt_399, |0 };.   |
|00001850| 20 73 74 61 74 69 63 20 | 63 69 6c 69 73 74 20 69 | static |cilist i|
|00001860| 6f 5f 5f 5f 34 32 20 3d | 20 7b 20 30 2c 20 36 30 |o___42 =| { 0, 60|
|00001870| 2c 20 30 2c 20 30 2c 20 | 30 20 7d 3b 0d 20 20 20 |, 0, 0, |0 };.   |
|00001880| 20 73 74 61 74 69 63 20 | 63 69 6c 69 73 74 20 69 | static |cilist i|
|00001890| 6f 5f 5f 5f 34 33 20 3d | 20 7b 20 30 2c 20 36 2c |o___43 =| { 0, 6,|
|000018a0| 20 30 2c 20 30 2c 20 30 | 20 7d 3b 0d 20 20 20 20 | 0, 0, 0| };.    |
|000018b0| 73 74 61 74 69 63 20 63 | 69 6c 69 73 74 20 69 6f |static c|ilist io|
|000018c0| 5f 5f 5f 34 34 20 3d 20 | 7b 20 30 2c 20 36 2c 20 |___44 = |{ 0, 6, |
|000018d0| 30 2c 20 66 6d 74 5f 33 | 30 34 2c 20 30 20 7d 3b |0, fmt_3|04, 0 };|
|000018e0| 0d 20 20 20 20 73 74 61 | 74 69 63 20 63 69 6c 69 |.    sta|tic cili|
|000018f0| 73 74 20 69 6f 5f 5f 5f | 34 35 20 3d 20 7b 20 30 |st io___|45 = { 0|
|00001900| 2c 20 35 30 2c 20 30 2c | 20 30 2c 20 30 20 7d 3b |, 50, 0,| 0, 0 };|
|00001910| 0d 20 20 20 20 73 74 61 | 74 69 63 20 63 69 6c 69 |.    sta|tic cili|
|00001920| 73 74 20 69 6f 5f 5f 5f | 34 36 20 3d 20 7b 20 30 |st io___|46 = { 0|
|00001930| 2c 20 36 2c 20 30 2c 20 | 30 2c 20 30 20 7d 3b 0d |, 6, 0, |0, 0 };.|
|00001940| 20 20 20 20 73 74 61 74 | 69 63 20 63 69 6c 69 73 |    stat|ic cilis|
|00001950| 74 20 69 6f 5f 5f 5f 34 | 37 20 3d 20 7b 20 30 2c |t io___4|7 = { 0,|
|00001960| 20 36 2c 20 30 2c 20 66 | 6d 74 5f 33 30 34 2c 20 | 6, 0, f|mt_304, |
|00001970| 30 20 7d 3b 0d 0d 0d 2f | 2a 20 09 53 63 72 65 65 |0 };.../|* .Scree|
|00001980| 6e 20 49 2f 4f 20 74 65 | 73 74 73 20 2a 2f 0d 20 |n I/O te|sts */. |
|00001990| 20 20 20 73 5f 77 73 6c | 65 28 26 69 6f 5f 5f 5f |   s_wsl|e(&io___|
|000019a0| 32 32 29 3b 0d 20 20 20 | 20 64 6f 5f 6c 69 6f 28 |22);.   | do_lio(|
|000019b0| 26 63 5f 5f 39 2c 20 26 | 63 5f 5f 31 2c 20 22 5c |&c__9, &|c__1, "\|
|000019c0| 6e 50 61 72 74 20 31 3a | 20 20 53 63 72 65 65 6e |nPart 1:|  Screen|
|000019d0| 20 49 2f 4f 20 74 65 73 | 74 73 2e 5c 6e 5c 6e 45 | I/O tes|ts.\n\nE|
|000019e0| 6e 74 65 72 20 61 6e 20 | 69 6e 74 65 67 65 72 20 |nter an |integer |
|000019f0| 76 5c 0d 61 6c 75 65 2e | 22 2c 20 35 32 4c 29 3b |v\.alue.|", 52L);|
|00001a00| 0d 20 20 20 20 65 5f 77 | 73 6c 65 28 29 3b 0d 20 |.    e_w|sle();. |
|00001a10| 20 20 20 73 5f 72 73 6c | 65 28 26 69 6f 5f 5f 5f |   s_rsl|e(&io___|
|00001a20| 32 33 29 3b 0d 20 20 20 | 20 64 6f 5f 6c 69 6f 28 |23);.   | do_lio(|
|00001a30| 26 63 5f 5f 33 2c 20 26 | 63 5f 5f 31 2c 20 28 63 |&c__3, &|c__1, (c|
|00001a40| 68 61 72 20 2a 29 26 69 | 2c 20 28 66 74 6e 6c 65 |har *)&i|, (ftnle|
|00001a50| 6e 29 73 69 7a 65 6f 66 | 28 69 6e 74 65 67 65 72 |n)sizeof|(integer|
|00001a60| 29 29 3b 0d 20 20 20 20 | 65 5f 72 73 6c 65 28 29 |));.    |e_rsle()|
|00001a70| 3b 0d 20 20 20 20 73 5f | 77 73 6c 65 28 26 69 6f |;.    s_|wsle(&io|
|00001a80| 5f 5f 5f 32 35 29 3b 0d | 20 20 20 20 64 6f 5f 6c |___25);.|    do_l|
|00001a90| 69 6f 28 26 63 5f 5f 39 | 2c 20 26 63 5f 5f 31 2c |io(&c__9|, &c__1,|
|00001aa0| 20 22 54 68 65 20 6e 75 | 6d 62 65 72 20 79 6f 75 | "The nu|mber you|
|00001ab0| 20 65 6e 74 65 72 65 64 | 20 77 61 73 3a 22 2c 20 | entered| was:", |
|00001ac0| 32 37 4c 29 3b 0d 20 20 | 20 20 64 6f 5f 6c 69 6f |27L);.  |  do_lio|
|00001ad0| 28 26 63 5f 5f 33 2c 20 | 26 63 5f 5f 31 2c 20 28 |(&c__3, |&c__1, (|
|00001ae0| 63 68 61 72 20 2a 29 26 | 69 2c 20 28 66 74 6e 6c |char *)&|i, (ftnl|
|00001af0| 65 6e 29 73 69 7a 65 6f | 66 28 69 6e 74 65 67 65 |en)sizeo|f(intege|
|00001b00| 72 29 29 3b 0d 20 20 20 | 20 65 5f 77 73 6c 65 28 |r));.   | e_wsle(|
|00001b10| 29 3b 0d 20 20 20 20 73 | 5f 77 73 6c 65 28 26 69 |);.    s|_wsle(&i|
|00001b20| 6f 5f 5f 5f 32 36 29 3b | 0d 20 20 20 20 64 6f 5f |o___26);|.    do_|
|00001b30| 6c 69 6f 28 26 63 5f 5f | 39 2c 20 26 63 5f 5f 31 |lio(&c__|9, &c__1|
|00001b40| 2c 20 22 5c 6e 45 6e 74 | 65 72 20 61 20 73 69 6e |, "\nEnt|er a sin|
|00001b50| 67 6c 65 20 70 72 65 63 | 69 73 69 6f 6e 20 66 6c |gle prec|ision fl|
|00001b60| 6f 61 74 69 6e 67 20 70 | 6f 69 6e 74 20 76 61 6c |oating p|oint val|
|00001b70| 75 65 2e 2e 2e 22 2c 0d | 09 20 20 20 20 20 34 39 |ue...",.|.     49|
|00001b80| 4c 29 3b 0d 20 20 20 20 | 65 5f 77 73 6c 65 28 29 |L);.    |e_wsle()|
|00001b90| 3b 0d 20 20 20 20 73 5f | 72 73 6c 65 28 26 69 6f |;.    s_|rsle(&io|
|00001ba0| 5f 5f 5f 32 37 29 3b 0d | 20 20 20 20 64 6f 5f 6c |___27);.|    do_l|
|00001bb0| 69 6f 28 26 63 5f 5f 34 | 2c 20 26 63 5f 5f 31 2c |io(&c__4|, &c__1,|
|00001bc0| 20 28 63 68 61 72 20 2a | 29 26 78 2c 20 28 66 74 | (char *|)&x, (ft|
|00001bd0| 6e 6c 65 6e 29 73 69 7a | 65 6f 66 28 72 65 61 6c |nlen)siz|eof(real|
|00001be0| 29 29 3b 0d 20 20 20 20 | 65 5f 72 73 6c 65 28 29 |));.    |e_rsle()|
|00001bf0| 3b 0d 20 20 20 20 73 5f | 77 73 6c 65 28 26 69 6f |;.    s_|wsle(&io|
|00001c00| 5f 5f 5f 32 39 29 3b 0d | 20 20 20 20 64 6f 5f 6c |___29);.|    do_l|
|00001c10| 69 6f 28 26 63 5f 5f 39 | 2c 20 26 63 5f 5f 31 2c |io(&c__9|, &c__1,|
|00001c20| 20 22 54 68 65 20 6e 75 | 6d 62 65 72 20 79 6f 75 | "The nu|mber you|
|00001c30| 20 65 6e 74 65 72 65 64 | 20 77 61 73 3a 20 22 2c | entered| was: ",|
|00001c40| 20 32 38 4c 29 3b 0d 20 | 20 20 20 64 6f 5f 6c 69 | 28L);. |   do_li|
|00001c50| 6f 28 26 63 5f 5f 34 2c | 20 26 63 5f 5f 31 2c 20 |o(&c__4,| &c__1, |
|00001c60| 28 63 68 61 72 20 2a 29 | 26 78 2c 20 28 66 74 6e |(char *)|&x, (ftn|
|00001c70| 6c 65 6e 29 73 69 7a 65 | 6f 66 28 72 65 61 6c 29 |len)size|of(real)|
|00001c80| 29 3b 0d 20 20 20 20 65 | 5f 77 73 6c 65 28 29 3b |);.    e|_wsle();|
|00001c90| 0d 20 20 20 20 73 5f 77 | 73 6c 65 28 26 69 6f 5f |.    s_w|sle(&io_|
|00001ca0| 5f 5f 33 30 29 3b 0d 20 | 20 20 20 64 6f 5f 6c 69 |__30);. |   do_li|
|00001cb0| 6f 28 26 63 5f 5f 39 2c | 20 26 63 5f 5f 31 2c 20 |o(&c__9,| &c__1, |
|00001cc0| 22 5c 6e 45 6e 74 65 72 | 20 61 20 64 6f 75 62 6c |"\nEnter| a doubl|
|00001cd0| 65 20 70 72 65 63 69 73 | 69 6f 6e 20 66 6c 6f 61 |e precis|ion floa|
|00001ce0| 74 69 6e 67 20 70 6f 69 | 6e 74 20 76 61 6c 75 65 |ting poi|nt value|
|00001cf0| 2e 2e 2e 22 2c 0d 09 20 | 20 20 20 20 34 39 4c 29 |...",.. |    49L)|
|00001d00| 3b 0d 20 20 20 20 65 5f | 77 73 6c 65 28 29 3b 0d |;.    e_|wsle();.|
|00001d10| 20 20 20 20 73 5f 72 73 | 6c 65 28 26 69 6f 5f 5f |    s_rs|le(&io__|
|00001d20| 5f 33 31 29 3b 0d 20 20 | 20 20 64 6f 5f 6c 69 6f |_31);.  |  do_lio|
|00001d30| 28 26 63 5f 5f 35 2c 20 | 26 63 5f 5f 31 2c 20 28 |(&c__5, |&c__1, (|
|00001d40| 63 68 61 72 20 2a 29 26 | 64 78 2c 20 28 66 74 6e |char *)&|dx, (ftn|
|00001d50| 6c 65 6e 29 73 69 7a 65 | 6f 66 28 64 6f 75 62 6c |len)size|of(doubl|
|00001d60| 65 72 65 61 6c 29 29 3b | 0d 20 20 20 20 65 5f 72 |ereal));|.    e_r|
|00001d70| 73 6c 65 28 29 3b 0d 20 | 20 20 20 73 5f 77 73 6c |sle();. |   s_wsl|
|00001d80| 65 28 26 69 6f 5f 5f 5f | 33 33 29 3b 0d 20 20 20 |e(&io___|33);.   |
|00001d90| 20 64 6f 5f 6c 69 6f 28 | 26 63 5f 5f 39 2c 20 26 | do_lio(|&c__9, &|
|00001da0| 63 5f 5f 31 2c 20 22 54 | 68 65 20 6e 75 6d 62 65 |c__1, "T|he numbe|
|00001db0| 72 20 79 6f 75 20 65 6e | 74 65 72 65 64 20 77 61 |r you en|tered wa|
|00001dc0| 73 3a 20 22 2c 20 32 38 | 4c 29 3b 0d 20 20 20 20 |s: ", 28|L);.    |
|00001dd0| 64 6f 5f 6c 69 6f 28 26 | 63 5f 5f 35 2c 20 26 63 |do_lio(&|c__5, &c|
|00001de0| 5f 5f 31 2c 20 28 63 68 | 61 72 20 2a 29 26 64 78 |__1, (ch|ar *)&dx|
|00001df0| 2c 20 28 66 74 6e 6c 65 | 6e 29 73 69 7a 65 6f 66 |, (ftnle|n)sizeof|
|00001e00| 28 64 6f 75 62 6c 65 72 | 65 61 6c 29 29 3b 0d 20 |(doubler|eal));. |
|00001e10| 20 20 20 65 5f 77 73 6c | 65 28 29 3b 0d 20 20 20 |   e_wsl|e();.   |
|00001e20| 20 73 5f 77 73 6c 65 28 | 26 69 6f 5f 5f 5f 33 34 | s_wsle(|&io___34|
|00001e30| 29 3b 0d 20 20 20 20 64 | 6f 5f 6c 69 6f 28 26 63 |);.    d|o_lio(&c|
|00001e40| 5f 5f 39 2c 20 26 63 5f | 5f 31 2c 20 22 5c 6e 45 |__9, &c_|_1, "\nE|
|00001e50| 6e 74 65 72 20 73 6f 6d | 65 20 74 65 78 74 20 28 |nter som|e text (|
|00001e60| 34 30 20 63 68 61 72 20 | 6d 61 78 29 2e 2e 2e 22 |40 char |max)..."|
|00001e70| 2c 20 33 33 4c 29 3b 0d | 20 20 20 20 65 5f 77 73 |, 33L);.|    e_ws|
|00001e80| 6c 65 28 29 3b 0d 20 20 | 20 20 73 5f 72 73 6c 65 |le();.  |  s_rsle|
|00001e90| 28 26 69 6f 5f 5f 5f 33 | 35 29 3b 0d 20 20 20 20 |(&io___3|5);.    |
|00001ea0| 64 6f 5f 6c 69 6f 28 26 | 63 5f 5f 39 2c 20 26 63 |do_lio(&|c__9, &c|
|00001eb0| 5f 5f 31 2c 20 74 65 78 | 74 2c 20 34 30 4c 29 3b |__1, tex|t, 40L);|
|00001ec0| 0d 20 20 20 20 65 5f 72 | 73 6c 65 28 29 3b 0d 20 |.    e_r|sle();. |
|00001ed0| 20 20 20 73 5f 77 73 6c | 65 28 26 69 6f 5f 5f 5f |   s_wsl|e(&io___|
|00001ee0| 33 37 29 3b 0d 20 20 20 | 20 64 6f 5f 6c 69 6f 28 |37);.   | do_lio(|
|00001ef0| 26 63 5f 5f 39 2c 20 26 | 63 5f 5f 31 2c 20 22 54 |&c__9, &|c__1, "T|
|00001f00| 68 65 20 74 65 78 74 20 | 79 6f 75 20 65 6e 74 65 |he text |you ente|
|00001f10| 72 65 64 20 77 61 73 3a | 20 22 2c 20 32 36 4c 29 |red was:| ", 26L)|
|00001f20| 3b 0d 20 20 20 20 64 6f | 5f 6c 69 6f 28 26 63 5f |;.    do|_lio(&c_|
|00001f30| 5f 39 2c 20 26 63 5f 5f | 31 2c 20 74 65 78 74 2c |_9, &c__|1, text,|
|00001f40| 20 34 30 4c 29 3b 0d 20 | 20 20 20 65 5f 77 73 6c | 40L);. |   e_wsl|
|00001f50| 65 28 29 3b 0d 20 20 20 | 20 73 5f 77 73 6c 65 28 |e();.   | s_wsle(|
|00001f60| 26 69 6f 5f 5f 5f 33 38 | 29 3b 0d 20 20 20 20 64 |&io___38|);.    d|
|00001f70| 6f 5f 6c 69 6f 28 26 63 | 5f 5f 39 2c 20 26 63 5f |o_lio(&c|__9, &c_|
|00001f80| 5f 31 2c 20 22 5c 6e 50 | 61 72 74 20 32 3a 20 20 |_1, "\nP|art 2:  |
|00001f90| 66 69 6c 65 20 49 2f 4f | 20 74 65 73 74 73 2e 20 |file I/O| tests. |
|00001fa0| 20 48 69 74 20 72 65 74 | 75 72 6e 20 74 6f 20 63 | Hit ret|urn to c|
|00001fb0| 6f 6e 74 69 6e 75 65 5c | 0d 2e 2e 2e 22 2c 20 35 |ontinue\|....", 5|
|00001fc0| 32 4c 29 3b 0d 20 20 20 | 20 65 5f 77 73 6c 65 28 |2L);.   | e_wsle(|
|00001fd0| 29 3b 0d 20 20 20 20 73 | 5f 72 73 66 65 28 26 69 |);.    s|_rsfe(&i|
|00001fe0| 6f 5f 5f 5f 33 39 29 3b | 0d 20 20 20 20 64 6f 5f |o___39);|.    do_|
|00001ff0| 66 69 6f 28 26 63 5f 5f | 31 2c 20 74 65 78 74 2c |fio(&c__|1, text,|
|00002000| 20 34 30 4c 29 3b 0d 20 | 20 20 20 65 5f 72 73 66 | 40L);. |   e_rsf|
|00002010| 65 28 29 3b 0d 2f 2a 20 | 09 46 69 6c 65 20 49 2f |e();./* |.File I/|
|00002020| 4f 20 74 65 73 74 73 3a | 20 20 53 74 6f 72 65 20 |O tests:|  Store |
|00002030| 73 6f 6d 65 20 76 61 6c | 75 65 73 20 61 6e 64 20 |some val|ues and |
|00002040| 77 72 69 74 65 20 74 68 | 65 6d 20 74 6f 20 66 69 |write th|em to fi|
|00002050| 6c 65 20 2a 2f 0d 20 20 | 20 20 66 6f 72 20 28 69 |le */.  |  for (i|
|00002060| 20 3d 20 31 3b 20 69 20 | 3c 3d 20 35 3b 20 2b 2b | = 1; i |<= 5; ++|
|00002070| 69 29 20 7b 0d 09 6a 5b | 69 20 2d 20 31 5d 20 3d |i) {..j[|i - 1] =|
|00002080| 20 69 3b 0d 09 61 5b 69 | 20 2d 20 31 5d 20 3d 20 | i;..a[i| - 1] = |
|00002090| 28 64 6f 75 62 6c 65 72 | 65 61 6c 29 20 69 3b 0d |(doubler|eal) i;.|
|000020a0| 20 20 20 20 7d 0d 20 20 | 20 20 73 5f 63 6f 70 79 |    }.  |  s_copy|
|000020b0| 28 74 65 78 74 2c 20 22 | 41 20 74 65 73 74 20 6d |(text, "|A test m|
|000020c0| 65 73 73 61 67 65 2e 22 | 2c 20 34 30 4c 2c 20 31 |essage."|, 40L, 1|
|000020d0| 35 4c 29 3b 0d 20 20 20 | 20 6f 5f 5f 31 2e 6f 65 |5L);.   | o__1.oe|
|000020e0| 72 72 20 3d 20 30 3b 0d | 20 20 20 20 6f 5f 5f 31 |rr = 0;.|    o__1|
|000020f0| 2e 6f 75 6e 69 74 20 3d | 20 36 30 3b 0d 20 20 20 |.ounit =| 60;.   |
|00002100| 20 6f 5f 5f 31 2e 6f 66 | 6e 6d 6c 65 6e 20 3d 20 | o__1.of|nmlen = |
|00002110| 38 3b 0d 20 20 20 20 6f | 5f 5f 31 2e 6f 66 6e 6d |8;.    o|__1.ofnm|
|00002120| 20 3d 20 22 74 65 73 74 | 2e 64 61 74 22 3b 0d 20 | = "test|.dat";. |
|00002130| 20 20 20 6f 5f 5f 31 2e | 6f 72 6c 20 3d 20 30 3b |   o__1.|orl = 0;|
|00002140| 0d 20 20 20 20 6f 5f 5f | 31 2e 6f 73 74 61 20 3d |.    o__|1.osta =|
|00002150| 20 30 3b 0d 20 20 20 20 | 6f 5f 5f 31 2e 6f 61 63 | 0;.    |o__1.oac|
|00002160| 63 20 3d 20 30 3b 0d 20 | 20 20 20 6f 5f 5f 31 2e |c = 0;. |   o__1.|
|00002170| 6f 66 6d 20 3d 20 22 75 | 6e 66 6f 72 6d 61 74 74 |ofm = "u|nformatt|
|00002180| 65 64 22 3b 0d 20 20 20 | 20 6f 5f 5f 31 2e 6f 62 |ed";.   | o__1.ob|
|00002190| 6c 6e 6b 20 3d 20 30 3b | 0d 20 20 20 20 66 5f 6f |lnk = 0;|.    f_o|
|000021a0| 70 65 6e 28 26 6f 5f 5f | 31 29 3b 0d 20 20 20 20 |pen(&o__|1);.    |
|000021b0| 73 5f 77 73 75 65 28 26 | 69 6f 5f 5f 5f 34 32 29 |s_wsue(&|io___42)|
|000021c0| 3b 0d 20 20 20 20 64 6f | 5f 75 69 6f 28 26 63 5f |;.    do|_uio(&c_|
|000021d0| 5f 31 2c 20 74 65 78 74 | 2c 20 34 30 4c 29 3b 0d |_1, text|, 40L);.|
|000021e0| 20 20 20 20 64 6f 5f 75 | 69 6f 28 26 63 5f 5f 35 |    do_u|io(&c__5|
|000021f0| 2c 20 28 63 68 61 72 20 | 2a 29 26 6a 5b 30 5d 2c |, (char |*)&j[0],|
|00002200| 20 28 66 74 6e 6c 65 6e | 29 73 69 7a 65 6f 66 28 | (ftnlen|)sizeof(|
|00002210| 69 6e 74 65 67 65 72 29 | 29 3b 0d 20 20 20 20 64 |integer)|);.    d|
|00002220| 6f 5f 75 69 6f 28 26 63 | 5f 5f 35 2c 20 28 63 68 |o_uio(&c|__5, (ch|
|00002230| 61 72 20 2a 29 26 61 5b | 30 5d 2c 20 28 66 74 6e |ar *)&a[|0], (ftn|
|00002240| 6c 65 6e 29 73 69 7a 65 | 6f 66 28 72 65 61 6c 29 |len)size|of(real)|
|00002250| 29 3b 0d 20 20 20 20 65 | 5f 77 73 75 65 28 29 3b |);.    e|_wsue();|
|00002260| 0d 20 20 20 20 63 6c 5f | 5f 31 2e 63 65 72 72 20 |.    cl_|_1.cerr |
|00002270| 3d 20 30 3b 0d 20 20 20 | 20 63 6c 5f 5f 31 2e 63 |= 0;.   | cl__1.c|
|00002280| 75 6e 69 74 20 3d 20 36 | 30 3b 0d 20 20 20 20 63 |unit = 6|0;.    c|
|00002290| 6c 5f 5f 31 2e 63 73 74 | 61 20 3d 20 30 3b 0d 20 |l__1.cst|a = 0;. |
|000022a0| 20 20 20 66 5f 63 6c 6f | 73 28 26 63 6c 5f 5f 31 |   f_clo|s(&cl__1|
|000022b0| 29 3b 0d 20 20 20 20 73 | 5f 77 73 6c 65 28 26 69 |);.    s|_wsle(&i|
|000022c0| 6f 5f 5f 5f 34 33 29 3b | 0d 20 20 20 20 64 6f 5f |o___43);|.    do_|
|000022d0| 6c 69 6f 28 26 63 5f 5f | 39 2c 20 26 63 5f 5f 31 |lio(&c__|9, &c__1|
|000022e0| 2c 20 22 57 72 6f 74 65 | 20 74 68 65 20 66 6f 6c |, "Wrote| the fol|
|000022f0| 6c 6f 77 69 6e 67 20 64 | 61 74 61 20 74 6f 20 66 |lowing d|ata to f|
|00002300| 69 6c 65 20 74 65 73 74 | 2e 64 61 74 3a 5c 6e 22 |ile test|.dat:\n"|
|00002310| 2c 20 34 33 4c 29 3b 0d | 20 20 20 20 65 5f 77 73 |, 43L);.|    e_ws|
|00002320| 6c 65 28 29 3b 0d 20 20 | 20 20 73 5f 77 73 66 65 |le();.  |  s_wsfe|
|00002330| 28 26 69 6f 5f 5f 5f 34 | 34 29 3b 0d 20 20 20 20 |(&io___4|4);.    |
|00002340| 64 6f 5f 66 69 6f 28 26 | 63 5f 5f 31 2c 20 74 65 |do_fio(&|c__1, te|
|00002350| 78 74 2c 20 34 30 4c 29 | 3b 0d 20 20 20 20 66 6f |xt, 40L)|;.    fo|
|00002360| 72 20 28 69 20 3d 20 31 | 3b 20 69 20 3c 3d 20 35 |r (i = 1|; i <= 5|
|00002370| 3b 20 2b 2b 69 29 20 7b | 0d 09 64 6f 5f 66 69 6f |; ++i) {|..do_fio|
|00002380| 28 26 63 5f 5f 31 2c 20 | 28 63 68 61 72 20 2a 29 |(&c__1, |(char *)|
|00002390| 26 6a 5b 69 20 2d 20 31 | 5d 2c 20 28 66 74 6e 6c |&j[i - 1|], (ftnl|
|000023a0| 65 6e 29 73 69 7a 65 6f | 66 28 69 6e 74 65 67 65 |en)sizeo|f(intege|
|000023b0| 72 29 29 3b 0d 20 20 20 | 20 7d 0d 20 20 20 20 66 |r));.   | }.    f|
|000023c0| 6f 72 20 28 69 20 3d 20 | 31 3b 20 69 20 3c 3d 20 |or (i = |1; i <= |
|000023d0| 35 3b 20 2b 2b 69 29 20 | 7b 0d 09 64 6f 5f 66 69 |5; ++i) |{..do_fi|
|000023e0| 6f 28 26 63 5f 5f 31 2c | 20 28 63 68 61 72 20 2a |o(&c__1,| (char *|
|000023f0| 29 26 61 5b 69 20 2d 20 | 31 5d 2c 20 28 66 74 6e |)&a[i - |1], (ftn|
|00002400| 6c 65 6e 29 73 69 7a 65 | 6f 66 28 72 65 61 6c 29 |len)size|of(real)|
|00002410| 29 3b 0d 20 20 20 20 7d | 0d 20 20 20 20 65 5f 77 |);.    }|.    e_w|
|00002420| 73 66 65 28 29 3b 0d 2f | 2a 20 52 65 73 65 74 20 |sfe();./|* Reset |
|00002430| 74 68 65 20 76 61 72 69 | 61 62 6c 65 73 20 61 6e |the vari|ables an|
|00002440| 64 20 72 65 61 64 20 74 | 68 65 6d 20 62 61 63 6b |d read t|hem back|
|00002450| 20 2a 2f 0d 20 20 20 20 | 66 6f 72 20 28 69 20 3d | */.    |for (i =|
|00002460| 20 31 3b 20 69 20 3c 3d | 20 35 3b 20 2b 2b 69 29 | 1; i <=| 5; ++i)|
|00002470| 20 7b 0d 09 6a 5b 69 20 | 2d 20 31 5d 20 3d 20 39 | {..j[i |- 1] = 9|
|00002480| 39 3b 0d 09 61 5b 69 20 | 2d 20 31 5d 20 3d 20 28 |9;..a[i |- 1] = (|
|00002490| 66 6c 6f 61 74 29 39 39 | 2e 3b 0d 20 20 20 20 7d |float)99|.;.    }|
|000024a0| 0d 20 20 20 20 73 5f 63 | 6f 70 79 28 74 65 78 74 |.    s_c|opy(text|
|000024b0| 2c 20 22 72 65 73 65 74 | 22 2c 20 34 30 4c 2c 20 |, "reset|", 40L, |
|000024c0| 35 4c 29 3b 0d 20 20 20 | 20 6f 5f 5f 31 2e 6f 65 |5L);.   | o__1.oe|
|000024d0| 72 72 20 3d 20 30 3b 0d | 20 20 20 20 6f 5f 5f 31 |rr = 0;.|    o__1|
|000024e0| 2e 6f 75 6e 69 74 20 3d | 20 35 30 3b 0d 20 20 20 |.ounit =| 50;.   |
|000024f0| 20 6f 5f 5f 31 2e 6f 66 | 6e 6d 6c 65 6e 20 3d 20 | o__1.of|nmlen = |
|00002500| 38 3b 0d 20 20 20 20 6f | 5f 5f 31 2e 6f 66 6e 6d |8;.    o|__1.ofnm|
|00002510| 20 3d 20 22 74 65 73 74 | 2e 64 61 74 22 3b 0d 20 | = "test|.dat";. |
|00002520| 20 20 20 6f 5f 5f 31 2e | 6f 72 6c 20 3d 20 30 3b |   o__1.|orl = 0;|
|00002530| 0d 20 20 20 20 6f 5f 5f | 31 2e 6f 73 74 61 20 3d |.    o__|1.osta =|
|00002540| 20 30 3b 0d 20 20 20 20 | 6f 5f 5f 31 2e 6f 61 63 | 0;.    |o__1.oac|
|00002550| 63 20 3d 20 30 3b 0d 20 | 20 20 20 6f 5f 5f 31 2e |c = 0;. |   o__1.|
|00002560| 6f 66 6d 20 3d 20 22 75 | 6e 66 6f 72 6d 61 74 74 |ofm = "u|nformatt|
|00002570| 65 64 22 3b 0d 20 20 20 | 20 6f 5f 5f 31 2e 6f 62 |ed";.   | o__1.ob|
|00002580| 6c 6e 6b 20 3d 20 30 3b | 0d 20 20 20 20 66 5f 6f |lnk = 0;|.    f_o|
|00002590| 70 65 6e 28 26 6f 5f 5f | 31 29 3b 0d 20 20 20 20 |pen(&o__|1);.    |
|000025a0| 73 5f 72 73 75 65 28 26 | 69 6f 5f 5f 5f 34 35 29 |s_rsue(&|io___45)|
|000025b0| 3b 0d 20 20 20 20 64 6f | 5f 75 69 6f 28 26 63 5f |;.    do|_uio(&c_|
|000025c0| 5f 31 2c 20 74 65 78 74 | 2c 20 34 30 4c 29 3b 0d |_1, text|, 40L);.|
|000025d0| 20 20 20 20 64 6f 5f 75 | 69 6f 28 26 63 5f 5f 35 |    do_u|io(&c__5|
|000025e0| 2c 20 28 63 68 61 72 20 | 2a 29 26 6a 5b 30 5d 2c |, (char |*)&j[0],|
|000025f0| 20 28 66 74 6e 6c 65 6e | 29 73 69 7a 65 6f 66 28 | (ftnlen|)sizeof(|
|00002600| 69 6e 74 65 67 65 72 29 | 29 3b 0d 20 20 20 20 64 |integer)|);.    d|
|00002610| 6f 5f 75 69 6f 28 26 63 | 5f 5f 35 2c 20 28 63 68 |o_uio(&c|__5, (ch|
|00002620| 61 72 20 2a 29 26 61 5b | 30 5d 2c 20 28 66 74 6e |ar *)&a[|0], (ftn|
|00002630| 6c 65 6e 29 73 69 7a 65 | 6f 66 28 72 65 61 6c 29 |len)size|of(real)|
|00002640| 29 3b 0d 20 20 20 20 65 | 5f 72 73 75 65 28 29 3b |);.    e|_rsue();|
|00002650| 0d 20 20 20 20 63 6c 5f | 5f 31 2e 63 65 72 72 20 |.    cl_|_1.cerr |
|00002660| 3d 20 30 3b 0d 20 20 20 | 20 63 6c 5f 5f 31 2e 63 |= 0;.   | cl__1.c|
|00002670| 75 6e 69 74 20 3d 20 35 | 30 3b 0d 20 20 20 20 63 |unit = 5|0;.    c|
|00002680| 6c 5f 5f 31 2e 63 73 74 | 61 20 3d 20 30 3b 0d 20 |l__1.cst|a = 0;. |
|00002690| 20 20 20 66 5f 63 6c 6f | 73 28 26 63 6c 5f 5f 31 |   f_clo|s(&cl__1|
|000026a0| 29 3b 0d 20 20 20 20 73 | 5f 77 73 6c 65 28 26 69 |);.    s|_wsle(&i|
|000026b0| 6f 5f 5f 5f 34 36 29 3b | 0d 20 20 20 20 64 6f 5f |o___46);|.    do_|
|000026c0| 6c 69 6f 28 26 63 5f 5f | 39 2c 20 26 63 5f 5f 31 |lio(&c__|9, &c__1|
|000026d0| 2c 20 22 5c 6e 52 65 61 | 64 20 74 68 65 20 66 6f |, "\nRea|d the fo|
|000026e0| 6c 6c 6f 77 69 6e 67 20 | 64 61 74 61 20 66 72 6f |llowing |data fro|
|000026f0| 6d 20 66 69 6c 65 20 74 | 65 73 74 2e 64 61 74 3a |m file t|est.dat:|
|00002700| 5c 6e 22 2c 20 0d 09 20 | 20 20 20 34 35 4c 29 3b |\n", .. |   45L);|
|00002710| 0d 20 20 20 20 65 5f 77 | 73 6c 65 28 29 3b 0d 20 |.    e_w|sle();. |
|00002720| 20 20 20 73 5f 77 73 66 | 65 28 26 69 6f 5f 5f 5f |   s_wsf|e(&io___|
|00002730| 34 37 29 3b 0d 20 20 20 | 20 64 6f 5f 66 69 6f 28 |47);.   | do_fio(|
|00002740| 26 63 5f 5f 31 2c 20 74 | 65 78 74 2c 20 34 30 4c |&c__1, t|ext, 40L|
|00002750| 29 3b 0d 20 20 20 20 66 | 6f 72 20 28 69 20 3d 20 |);.    f|or (i = |
|00002760| 31 3b 20 69 20 3c 3d 20 | 35 3b 20 2b 2b 69 29 20 |1; i <= |5; ++i) |
|00002770| 7b 0d 09 64 6f 5f 66 69 | 6f 28 26 63 5f 5f 31 2c |{..do_fi|o(&c__1,|
|00002780| 20 28 63 68 61 72 20 2a | 29 26 6a 5b 69 20 2d 20 | (char *|)&j[i - |
|00002790| 31 5d 2c 20 28 66 74 6e | 6c 65 6e 29 73 69 7a 65 |1], (ftn|len)size|
|000027a0| 6f 66 28 69 6e 74 65 67 | 65 72 29 29 3b 0d 20 20 |of(integ|er));.  |
|000027b0| 20 20 7d 0d 20 20 20 20 | 66 6f 72 20 28 69 20 3d |  }.    |for (i =|
|000027c0| 20 31 3b 20 69 20 3c 3d | 20 35 3b 20 2b 2b 69 29 | 1; i <=| 5; ++i)|
|000027d0| 20 7b 0d 09 64 6f 5f 66 | 69 6f 28 26 63 5f 5f 31 | {..do_f|io(&c__1|
|000027e0| 2c 20 28 63 68 61 72 20 | 2a 29 26 61 5b 69 20 2d |, (char |*)&a[i -|
|000027f0| 20 31 5d 2c 20 28 66 74 | 6e 6c 65 6e 29 73 69 7a | 1], (ft|nlen)siz|
|00002800| 65 6f 66 28 72 65 61 6c | 29 29 3b 0d 20 20 20 20 |eof(real|));.    |
|00002810| 7d 0d 20 20 20 20 65 5f | 77 73 66 65 28 29 3b 0d |}.    e_|wsfe();.|
|00002820| 20 20 20 20 72 65 74 75 | 72 6e 20 30 3b 0d 7d 20 |    retu|rn 0;.} |
|00002830| 2f 2a 20 69 5f 6f 5f 74 | 65 73 74 5f 5f 20 2a 2f |/* i_o_t|est__ */|
|00002840| 0d 0d 2f 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |../*****|********|
|00002850| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002860| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002870| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002880| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0d 0d |********|*****/..|
|00002890| 2f 2a 20 09 53 75 62 72 | 6f 75 74 69 6e 65 20 74 |/* .Subr|outine t|
|000028a0| 6f 20 64 6f 20 74 68 65 | 20 69 6e 74 65 67 65 72 |o do the| integer|
|000028b0| 20 6d 61 74 68 20 74 65 | 73 74 73 20 2a 2f 0d 0d | math te|sts */..|
|000028c0| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|000028d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000028e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000028f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002900| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2f 0d 2f 2a 20 |********|***/./* |
|00002910| 53 75 62 72 6f 75 74 69 | 6e 65 20 2a 2f 20 69 6e |Subrouti|ne */ in|
|00002920| 74 20 69 6e 74 5f 74 65 | 73 74 5f 5f 28 69 6e 74 |t int_te|st__(int|
|00002930| 65 67 65 72 20 2a 6d 29 | 0d 7b 0d 20 20 20 20 2f |eger *m)|.{.    /|
|00002940| 2a 20 46 6f 72 6d 61 74 | 20 73 74 72 69 6e 67 73 |* Format| strings|
|00002950| 20 2a 2f 0d 20 20 20 20 | 73 74 61 74 69 63 20 63 | */.    |static c|
|00002960| 68 61 72 20 66 6d 74 5f | 32 30 33 5b 5d 20 3d 20 |har fmt_|203[] = |
|00002970| 22 28 31 30 78 2c 5c 30 | 30 32 6e 5c 30 30 32 2c |"(10x,\0|02n\002,|
|00002980| 35 78 2c 5c 30 30 32 6e | 5e 32 5c 30 30 32 2c 35 |5x,\002n|^2\002,5|
|00002990| 78 2c 5c 30 30 32 6e 5e | 33 5c 30 30 32 2c 5c 0d |x,\002n^|3\002,\.|
|000029a0| 35 78 2c 5c 30 30 32 6e | 2f 32 5c 30 30 32 2c 33 |5x,\002n|/2\002,3|
|000029b0| 78 2c 5c 30 30 32 6e 5e | 32 2f 32 5c 30 30 32 2c |x,\002n^|2/2\002,|
|000029c0| 33 78 2c 5c 30 30 32 6e | 5e 33 2f 32 5c 30 30 32 |3x,\002n|^3/2\002|
|000029d0| 29 22 3b 0d 20 20 20 20 | 73 74 61 74 69 63 20 63 |)";.    |static c|
|000029e0| 68 61 72 20 66 6d 74 5f | 32 30 32 5b 5d 20 3d 20 |har fmt_|202[] = |
|000029f0| 22 28 35 78 2c 36 28 69 | 36 2c 32 78 29 29 22 3b |"(5x,6(i|6,2x))";|
|00002a00| 0d 0d 20 20 20 20 2f 2a | 20 53 79 73 74 65 6d 20 |..    /*| System |
|00002a10| 67 65 6e 65 72 61 74 65 | 64 20 6c 6f 63 61 6c 73 |generate|d locals|
|00002a20| 20 2a 2f 0d 20 20 20 20 | 69 6e 74 65 67 65 72 20 | */.    |integer |
|00002a30| 69 5f 5f 31 2c 20 69 5f | 5f 32 2c 20 69 5f 5f 33 |i__1, i_|_2, i__3|
|00002a40| 2c 20 69 5f 5f 34 3b 0d | 0d 20 20 20 20 2f 2a 20 |, i__4;.|.    /* |
|00002a50| 42 75 69 6c 74 69 6e 20 | 66 75 6e 63 74 69 6f 6e |Builtin |function|
|00002a60| 73 20 2a 2f 0d 20 20 20 | 20 69 6e 74 65 67 65 72 |s */.   | integer|
|00002a70| 20 73 5f 77 73 6c 65 28 | 63 69 6c 69 73 74 20 2a | s_wsle(|cilist *|
|00002a80| 29 2c 20 64 6f 5f 6c 69 | 6f 28 69 6e 74 65 67 65 |), do_li|o(intege|
|00002a90| 72 20 2a 2c 20 69 6e 74 | 65 67 65 72 20 2a 2c 20 |r *, int|eger *, |
|00002aa0| 63 68 61 72 20 2a 2c 20 | 66 74 6e 6c 65 6e 29 2c |char *, |ftnlen),|
|00002ab0| 20 0d 09 20 20 20 20 65 | 5f 77 73 6c 65 28 29 2c | ..    e|_wsle(),|
|00002ac0| 20 73 5f 77 73 66 65 28 | 63 69 6c 69 73 74 20 2a | s_wsfe(|cilist *|
|00002ad0| 29 2c 20 65 5f 77 73 66 | 65 28 29 2c 20 64 6f 5f |), e_wsf|e(), do_|
|00002ae0| 66 69 6f 28 69 6e 74 65 | 67 65 72 20 2a 2c 20 63 |fio(inte|ger *, c|
|00002af0| 68 61 72 20 2a 2c 20 0d | 09 20 20 20 20 66 74 6e |har *, .|.    ftn|
|00002b00| 6c 65 6e 29 3b 0d 0d 20 | 20 20 20 2f 2a 20 4c 6f |len);.. |   /* Lo|
|00002b10| 63 61 6c 20 76 61 72 69 | 61 62 6c 65 73 20 2a 2f |cal vari|ables */|
|00002b20| 0d 20 20 20 20 69 6e 74 | 65 67 65 72 20 69 2c 20 |.    int|eger i, |
|00002b30| 6a 2c 20 6b 3b 0d 0d 20 | 20 20 20 2f 2a 20 46 6f |j, k;.. |   /* Fo|
|00002b40| 72 74 72 61 6e 20 49 2f | 4f 20 62 6c 6f 63 6b 73 |rtran I/|O blocks|
|00002b50| 20 2a 2f 0d 20 20 20 20 | 73 74 61 74 69 63 20 63 | */.    |static c|
|00002b60| 69 6c 69 73 74 20 69 6f | 5f 5f 5f 34 38 20 3d 20 |ilist io|___48 = |
|00002b70| 7b 20 30 2c 20 36 2c 20 | 30 2c 20 30 2c 20 30 20 |{ 0, 6, |0, 0, 0 |
|00002b80| 7d 3b 0d 20 20 20 20 73 | 74 61 74 69 63 20 63 69 |};.    s|tatic ci|
|00002b90| 6c 69 73 74 20 69 6f 5f | 5f 5f 34 39 20 3d 20 7b |list io_|__49 = {|
|00002ba0| 20 30 2c 20 36 2c 20 30 | 2c 20 66 6d 74 5f 32 30 | 0, 6, 0|, fmt_20|
|00002bb0| 33 2c 20 30 20 7d 3b 0d | 20 20 20 20 73 74 61 74 |3, 0 };.|    stat|
|00002bc0| 69 63 20 63 69 6c 69 73 | 74 20 69 6f 5f 5f 5f 35 |ic cilis|t io___5|
|00002bd0| 33 20 3d 20 7b 20 30 2c | 20 36 2c 20 30 2c 20 66 |3 = { 0,| 6, 0, f|
|00002be0| 6d 74 5f 32 30 32 2c 20 | 30 20 7d 3b 0d 0d 0d 20 |mt_202, |0 };... |
|00002bf0| 20 20 20 73 5f 77 73 6c | 65 28 26 69 6f 5f 5f 5f |   s_wsl|e(&io___|
|00002c00| 34 38 29 3b 0d 20 20 20 | 20 64 6f 5f 6c 69 6f 28 |48);.   | do_lio(|
|00002c10| 26 63 5f 5f 39 2c 20 26 | 63 5f 5f 31 2c 20 22 5c |&c__9, &|c__1, "\|
|00002c20| 6e 47 65 6e 65 72 61 74 | 65 20 61 20 74 61 62 6c |nGenerat|e a tabl|
|00002c30| 65 20 6f 66 20 69 6e 74 | 65 67 65 72 73 2c 20 73 |e of int|egers, s|
|00002c40| 71 75 61 72 65 73 2c 20 | 63 75 62 65 73 2c 20 61 |quares, |cubes, a|
|00002c50| 6e 5c 0d 64 20 74 68 65 | 69 72 20 68 61 6c 76 65 |n\.d the|ir halve|
|00002c60| 73 2e 5c 6e 22 2c 20 36 | 35 4c 29 3b 0d 20 20 20 |s.\n", 6|5L);.   |
|00002c70| 20 65 5f 77 73 6c 65 28 | 29 3b 0d 20 20 20 20 73 | e_wsle(|);.    s|
|00002c80| 5f 77 73 66 65 28 26 69 | 6f 5f 5f 5f 34 39 29 3b |_wsfe(&i|o___49);|
|00002c90| 0d 20 20 20 20 65 5f 77 | 73 66 65 28 29 3b 0d 20 |.    e_w|sfe();. |
|00002ca0| 20 20 20 69 5f 5f 31 20 | 3d 20 2a 6d 3b 0d 20 20 |   i__1 |= *m;.  |
|00002cb0| 20 20 66 6f 72 20 28 69 | 20 3d 20 31 3b 20 69 20 |  for (i| = 1; i |
|00002cc0| 3c 3d 20 69 5f 5f 31 3b | 20 2b 2b 69 29 20 7b 0d |<= i__1;| ++i) {.|
|00002cd0| 2f 2a 20 43 6f 6d 70 75 | 74 69 6e 67 20 32 6e 64 |/* Compu|ting 2nd|
|00002ce0| 20 70 6f 77 65 72 20 2a | 2f 0d 09 69 5f 5f 32 20 | power *|/..i__2 |
|00002cf0| 3d 20 69 3b 0d 09 6a 20 | 3d 20 69 5f 5f 32 20 2a |= i;..j |= i__2 *|
|00002d00| 20 69 5f 5f 32 3b 0d 2f | 2a 20 43 6f 6d 70 75 74 | i__2;./|* Comput|
|00002d10| 69 6e 67 20 33 72 64 20 | 70 6f 77 65 72 20 2a 2f |ing 3rd |power */|
|00002d20| 0d 09 69 5f 5f 32 20 3d | 20 69 2c 20 69 5f 5f 33 |..i__2 =| i, i__3|
|00002d30| 20 3d 20 69 5f 5f 32 3b | 0d 09 6b 20 3d 20 69 5f | = i__2;|..k = i_|
|00002d40| 5f 33 20 2a 20 28 69 5f | 5f 32 20 2a 20 69 5f 5f |_3 * (i_|_2 * i__|
|00002d50| 32 29 3b 0d 09 73 5f 77 | 73 66 65 28 26 69 6f 5f |2);..s_w|sfe(&io_|
|00002d60| 5f 5f 35 33 29 3b 0d 09 | 64 6f 5f 66 69 6f 28 26 |__53);..|do_fio(&|
|00002d70| 63 5f 5f 31 2c 20 28 63 | 68 61 72 20 2a 29 26 69 |c__1, (c|har *)&i|
|00002d80| 2c 20 28 66 74 6e 6c 65 | 6e 29 73 69 7a 65 6f 66 |, (ftnle|n)sizeof|
|00002d90| 28 69 6e 74 65 67 65 72 | 29 29 3b 0d 09 64 6f 5f |(integer|));..do_|
|00002da0| 66 69 6f 28 26 63 5f 5f | 31 2c 20 28 63 68 61 72 |fio(&c__|1, (char|
|00002db0| 20 2a 29 26 6a 2c 20 28 | 66 74 6e 6c 65 6e 29 73 | *)&j, (|ftnlen)s|
|00002dc0| 69 7a 65 6f 66 28 69 6e | 74 65 67 65 72 29 29 3b |izeof(in|teger));|
|00002dd0| 0d 09 64 6f 5f 66 69 6f | 28 26 63 5f 5f 31 2c 20 |..do_fio|(&c__1, |
|00002de0| 28 63 68 61 72 20 2a 29 | 26 6b 2c 20 28 66 74 6e |(char *)|&k, (ftn|
|00002df0| 6c 65 6e 29 73 69 7a 65 | 6f 66 28 69 6e 74 65 67 |len)size|of(integ|
|00002e00| 65 72 29 29 3b 0d 09 69 | 5f 5f 32 20 3d 20 69 20 |er));..i|__2 = i |
|00002e10| 2f 20 32 3b 0d 09 64 6f | 5f 66 69 6f 28 26 63 5f |/ 2;..do|_fio(&c_|
|00002e20| 5f 31 2c 20 28 63 68 61 | 72 20 2a 29 26 69 5f 5f |_1, (cha|r *)&i__|
|00002e30| 32 2c 20 28 66 74 6e 6c | 65 6e 29 73 69 7a 65 6f |2, (ftnl|en)sizeo|
|00002e40| 66 28 69 6e 74 65 67 65 | 72 29 29 3b 0d 09 69 5f |f(intege|r));..i_|
|00002e50| 5f 33 20 3d 20 6a 20 2f | 20 32 3b 0d 09 64 6f 5f |_3 = j /| 2;..do_|
|00002e60| 66 69 6f 28 26 63 5f 5f | 31 2c 20 28 63 68 61 72 |fio(&c__|1, (char|
|00002e70| 20 2a 29 26 69 5f 5f 33 | 2c 20 28 66 74 6e 6c 65 | *)&i__3|, (ftnle|
|00002e80| 6e 29 73 69 7a 65 6f 66 | 28 69 6e 74 65 67 65 72 |n)sizeof|(integer|
|00002e90| 29 29 3b 0d 09 69 5f 5f | 34 20 3d 20 6b 20 2f 20 |));..i__|4 = k / |
|00002ea0| 32 3b 0d 09 64 6f 5f 66 | 69 6f 28 26 63 5f 5f 31 |2;..do_f|io(&c__1|
|00002eb0| 2c 20 28 63 68 61 72 20 | 2a 29 26 69 5f 5f 34 2c |, (char |*)&i__4,|
|00002ec0| 20 28 66 74 6e 6c 65 6e | 29 73 69 7a 65 6f 66 28 | (ftnlen|)sizeof(|
|00002ed0| 69 6e 74 65 67 65 72 29 | 29 3b 0d 09 65 5f 77 73 |integer)|);..e_ws|
|00002ee0| 66 65 28 29 3b 0d 20 20 | 20 20 7d 0d 20 20 20 20 |fe();.  |  }.    |
|00002ef0| 72 65 74 75 72 6e 20 30 | 3b 0d 7d 20 2f 2a 20 69 |return 0|;.} /* i|
|00002f00| 6e 74 5f 74 65 73 74 5f | 5f 20 2a 2f 0d 0d 2f 2a |nt_test_|_ */../*|
|00002f10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002f50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2f 0d 0d 2f 2a 20 09 |********|*/../* .|
|00002f60| 53 75 62 72 6f 75 74 69 | 6e 65 20 74 6f 20 64 6f |Subrouti|ne to do|
|00002f70| 20 74 68 65 20 66 6c 6f | 61 74 69 6e 67 20 70 6f | the flo|ating po|
|00002f80| 69 6e 74 20 6d 61 74 68 | 20 74 65 73 74 73 20 2a |int math| tests *|
|00002f90| 2f 0d 0d 2f 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/../****|********|
|00002fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002fc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002fd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2f 0d |********|******/.|
|00002fe0| 2f 2a 20 53 75 62 72 6f | 75 74 69 6e 65 20 2a 2f |/* Subro|utine */|
|00002ff0| 20 69 6e 74 20 66 6c 74 | 5f 74 65 73 74 5f 5f 28 | int flt|_test__(|
|00003000| 69 6e 74 65 67 65 72 20 | 2a 6d 29 0d 7b 0d 20 20 |integer |*m).{.  |
|00003010| 20 20 2f 2a 20 46 6f 72 | 6d 61 74 20 73 74 72 69 |  /* For|mat stri|
|00003020| 6e 67 73 20 2a 2f 0d 20 | 20 20 20 73 74 61 74 69 |ngs */. |   stati|
|00003030| 63 20 63 68 61 72 20 66 | 6d 74 5f 32 30 35 5b 5d |c char f|mt_205[]|
|00003040| 20 3d 20 22 28 31 32 78 | 2c 5c 30 30 32 78 5c 30 | = "(12x|,\002x\0|
|00003050| 30 32 2c 36 78 2c 5c 30 | 30 32 78 5e 32 5c 30 30 |02,6x,\0|02x^2\00|
|00003060| 32 2c 36 78 2c 5c 30 30 | 32 78 5e 33 5c 30 30 32 |2,6x,\00|2x^3\002|
|00003070| 2c 5c 0d 36 78 2c 5c 30 | 30 32 78 2f 32 5c 30 30 |,\.6x,\0|02x/2\00|
|00003080| 32 2c 34 78 2c 5c 30 30 | 32 78 5e 32 2f 32 5c 30 |2,4x,\00|2x^2/2\0|
|00003090| 30 32 2c 34 78 2c 5c 30 | 30 32 78 5e 33 2f 32 5c |02,4x,\0|02x^3/2\|
|000030a0| 30 30 32 29 22 3b 0d 20 | 20 20 20 73 74 61 74 69 |002)";. |   stati|
|000030b0| 63 20 63 68 61 72 20 66 | 6d 74 5f 32 30 31 5b 5d |c char f|mt_201[]|
|000030c0| 20 3d 20 22 28 35 78 2c | 36 28 66 38 2e 32 2c 31 | = "(5x,|6(f8.2,1|
|000030d0| 78 29 29 22 3b 0d 0d 20 | 20 20 20 2f 2a 20 53 79 |x))";.. |   /* Sy|
|000030e0| 73 74 65 6d 20 67 65 6e | 65 72 61 74 65 64 20 6c |stem gen|erated l|
|000030f0| 6f 63 61 6c 73 20 2a 2f | 0d 20 20 20 20 69 6e 74 |ocals */|.    int|
|00003100| 65 67 65 72 20 69 5f 5f | 31 3b 0d 20 20 20 20 72 |eger i__|1;.    r|
|00003110| 65 61 6c 20 72 5f 5f 31 | 2c 20 72 5f 5f 32 2c 20 |eal r__1|, r__2, |
|00003120| 72 5f 5f 33 3b 0d 0d 20 | 20 20 20 2f 2a 20 42 75 |r__3;.. |   /* Bu|
|00003130| 69 6c 74 69 6e 20 66 75 | 6e 63 74 69 6f 6e 73 20 |iltin fu|nctions |
|00003140| 2a 2f 0d 20 20 20 20 69 | 6e 74 65 67 65 72 20 73 |*/.    i|nteger s|
|00003150| 5f 77 73 6c 65 28 63 69 | 6c 69 73 74 20 2a 29 2c |_wsle(ci|list *),|
|00003160| 20 64 6f 5f 6c 69 6f 28 | 69 6e 74 65 67 65 72 20 | do_lio(|integer |
|00003170| 2a 2c 20 69 6e 74 65 67 | 65 72 20 2a 2c 20 63 68 |*, integ|er *, ch|
|00003180| 61 72 20 2a 2c 20 66 74 | 6e 6c 65 6e 29 2c 20 0d |ar *, ft|nlen), .|
|00003190| 09 20 20 20 20 65 5f 77 | 73 6c 65 28 29 2c 20 73 |.    e_w|sle(), s|
|000031a0| 5f 77 73 66 65 28 63 69 | 6c 69 73 74 20 2a 29 2c |_wsfe(ci|list *),|
|000031b0| 20 65 5f 77 73 66 65 28 | 29 2c 20 64 6f 5f 66 69 | e_wsfe(|), do_fi|
|000031c0| 6f 28 69 6e 74 65 67 65 | 72 20 2a 2c 20 63 68 61 |o(intege|r *, cha|
|000031d0| 72 20 2a 2c 20 0d 09 20 | 20 20 20 66 74 6e 6c 65 |r *, .. |   ftnle|
|000031e0| 6e 29 3b 0d 0d 20 20 20 | 20 2f 2a 20 4c 6f 63 61 |n);..   | /* Loca|
|000031f0| 6c 20 76 61 72 69 61 62 | 6c 65 73 20 2a 2f 0d 20 |l variab|les */. |
|00003200| 20 20 20 69 6e 74 65 67 | 65 72 20 69 3b 0d 20 20 |   integ|er i;.  |
|00003210| 20 20 72 65 61 6c 20 78 | 31 2c 20 78 32 2c 20 78 |  real x|1, x2, x|
|00003220| 33 3b 0d 0d 20 20 20 20 | 2f 2a 20 46 6f 72 74 72 |3;..    |/* Fortr|
|00003230| 61 6e 20 49 2f 4f 20 62 | 6c 6f 63 6b 73 20 2a 2f |an I/O b|locks */|
|00003240| 0d 20 20 20 20 73 74 61 | 74 69 63 20 63 69 6c 69 |.    sta|tic cili|
|00003250| 73 74 20 69 6f 5f 5f 5f | 35 34 20 3d 20 7b 20 30 |st io___|54 = { 0|
|00003260| 2c 20 36 2c 20 30 2c 20 | 30 2c 20 30 20 7d 3b 0d |, 6, 0, |0, 0 };.|
|00003270| 20 20 20 20 73 74 61 74 | 69 63 20 63 69 6c 69 73 |    stat|ic cilis|
|00003280| 74 20 69 6f 5f 5f 5f 35 | 35 20 3d 20 7b 20 30 2c |t io___5|5 = { 0,|
|00003290| 20 36 2c 20 30 2c 20 66 | 6d 74 5f 32 30 35 2c 20 | 6, 0, f|mt_205, |
|000032a0| 30 20 7d 3b 0d 20 20 20 | 20 73 74 61 74 69 63 20 |0 };.   | static |
|000032b0| 63 69 6c 69 73 74 20 69 | 6f 5f 5f 5f 36 30 20 3d |cilist i|o___60 =|
|000032c0| 20 7b 20 30 2c 20 36 2c | 20 30 2c 20 66 6d 74 5f | { 0, 6,| 0, fmt_|
|000032d0| 32 30 31 2c 20 30 20 7d | 3b 0d 0d 0d 20 20 20 20 |201, 0 }|;...    |
|000032e0| 73 5f 77 73 6c 65 28 26 | 69 6f 5f 5f 5f 35 34 29 |s_wsle(&|io___54)|
|000032f0| 3b 0d 20 20 20 20 64 6f | 5f 6c 69 6f 28 26 63 5f |;.    do|_lio(&c_|
|00003300| 5f 39 2c 20 26 63 5f 5f | 31 2c 20 22 5c 6e 47 65 |_9, &c__|1, "\nGe|
|00003310| 6e 65 72 61 74 65 20 61 | 20 74 61 62 6c 65 20 6f |nerate a| table o|
|00003320| 66 20 66 6c 6f 61 74 73 | 2c 20 74 68 65 69 72 20 |f floats|, their |
|00003330| 73 71 75 61 72 65 73 2c | 20 63 75 62 65 73 5c 0d |squares,| cubes\.|
|00003340| 2c 20 61 6e 64 20 74 68 | 65 69 72 20 68 61 6c 76 |, and th|eir halv|
|00003350| 65 73 2e 5c 6e 22 2c 20 | 36 39 4c 29 3b 0d 20 20 |es.\n", |69L);.  |
|00003360| 20 20 65 5f 77 73 6c 65 | 28 29 3b 0d 20 20 20 20 |  e_wsle|();.    |
|00003370| 73 5f 77 73 66 65 28 26 | 69 6f 5f 5f 5f 35 35 29 |s_wsfe(&|io___55)|
|00003380| 3b 0d 20 20 20 20 65 5f | 77 73 66 65 28 29 3b 0d |;.    e_|wsfe();.|
|00003390| 20 20 20 20 69 5f 5f 31 | 20 3d 20 2a 6d 3b 0d 20 |    i__1| = *m;. |
|000033a0| 20 20 20 66 6f 72 20 28 | 69 20 3d 20 31 3b 20 69 |   for (|i = 1; i|
|000033b0| 20 3c 3d 20 69 5f 5f 31 | 3b 20 2b 2b 69 29 20 7b | <= i__1|; ++i) {|
|000033c0| 0d 09 78 31 20 3d 20 69 | 20 2a 20 28 66 6c 6f 61 |..x1 = i| * (floa|
|000033d0| 74 29 31 2e 3b 0d 2f 2a | 20 43 6f 6d 70 75 74 69 |t)1.;./*| Computi|
|000033e0| 6e 67 20 32 6e 64 20 70 | 6f 77 65 72 20 2a 2f 0d |ng 2nd p|ower */.|
|000033f0| 09 72 5f 5f 31 20 3d 20 | 78 31 3b 0d 09 78 32 20 |.r__1 = |x1;..x2 |
|00003400| 3d 20 72 5f 5f 31 20 2a | 20 72 5f 5f 31 3b 0d 2f |= r__1 *| r__1;./|
|00003410| 2a 20 43 6f 6d 70 75 74 | 69 6e 67 20 33 72 64 20 |* Comput|ing 3rd |
|00003420| 70 6f 77 65 72 20 2a 2f | 0d 09 72 5f 5f 31 20 3d |power */|..r__1 =|
|00003430| 20 78 31 2c 20 72 5f 5f | 32 20 3d 20 72 5f 5f 31 | x1, r__|2 = r__1|
|00003440| 3b 0d 09 78 33 20 3d 20 | 72 5f 5f 32 20 2a 20 28 |;..x3 = |r__2 * (|
|00003450| 72 5f 5f 31 20 2a 20 72 | 5f 5f 31 29 3b 0d 09 73 |r__1 * r|__1);..s|
|00003460| 5f 77 73 66 65 28 26 69 | 6f 5f 5f 5f 36 30 29 3b |_wsfe(&i|o___60);|
|00003470| 0d 09 64 6f 5f 66 69 6f | 28 26 63 5f 5f 31 2c 20 |..do_fio|(&c__1, |
|00003480| 28 63 68 61 72 20 2a 29 | 26 78 31 2c 20 28 66 74 |(char *)|&x1, (ft|
|00003490| 6e 6c 65 6e 29 73 69 7a | 65 6f 66 28 72 65 61 6c |nlen)siz|eof(real|
|000034a0| 29 29 3b 0d 09 64 6f 5f | 66 69 6f 28 26 63 5f 5f |));..do_|fio(&c__|
|000034b0| 31 2c 20 28 63 68 61 72 | 20 2a 29 26 78 32 2c 20 |1, (char| *)&x2, |
|000034c0| 28 66 74 6e 6c 65 6e 29 | 73 69 7a 65 6f 66 28 72 |(ftnlen)|sizeof(r|
|000034d0| 65 61 6c 29 29 3b 0d 09 | 64 6f 5f 66 69 6f 28 26 |eal));..|do_fio(&|
|000034e0| 63 5f 5f 31 2c 20 28 63 | 68 61 72 20 2a 29 26 78 |c__1, (c|har *)&x|
|000034f0| 33 2c 20 28 66 74 6e 6c | 65 6e 29 73 69 7a 65 6f |3, (ftnl|en)sizeo|
|00003500| 66 28 72 65 61 6c 29 29 | 3b 0d 09 72 5f 5f 31 20 |f(real))|;..r__1 |
|00003510| 3d 20 78 31 20 2f 20 32 | 3b 0d 09 64 6f 5f 66 69 |= x1 / 2|;..do_fi|
|00003520| 6f 28 26 63 5f 5f 31 2c | 20 28 63 68 61 72 20 2a |o(&c__1,| (char *|
|00003530| 29 26 72 5f 5f 31 2c 20 | 28 66 74 6e 6c 65 6e 29 |)&r__1, |(ftnlen)|
|00003540| 73 69 7a 65 6f 66 28 72 | 65 61 6c 29 29 3b 0d 09 |sizeof(r|eal));..|
|00003550| 72 5f 5f 32 20 3d 20 78 | 32 20 2f 20 32 3b 0d 09 |r__2 = x|2 / 2;..|
|00003560| 64 6f 5f 66 69 6f 28 26 | 63 5f 5f 31 2c 20 28 63 |do_fio(&|c__1, (c|
|00003570| 68 61 72 20 2a 29 26 72 | 5f 5f 32 2c 20 28 66 74 |har *)&r|__2, (ft|
|00003580| 6e 6c 65 6e 29 73 69 7a | 65 6f 66 28 72 65 61 6c |nlen)siz|eof(real|
|00003590| 29 29 3b 0d 09 72 5f 5f | 33 20 3d 20 78 33 20 2f |));..r__|3 = x3 /|
|000035a0| 20 32 3b 0d 09 64 6f 5f | 66 69 6f 28 26 63 5f 5f | 2;..do_|fio(&c__|
|000035b0| 31 2c 20 28 63 68 61 72 | 20 2a 29 26 72 5f 5f 33 |1, (char| *)&r__3|
|000035c0| 2c 20 28 66 74 6e 6c 65 | 6e 29 73 69 7a 65 6f 66 |, (ftnle|n)sizeof|
|000035d0| 28 72 65 61 6c 29 29 3b | 0d 09 65 5f 77 73 66 65 |(real));|..e_wsfe|
|000035e0| 28 29 3b 0d 20 20 20 20 | 7d 0d 20 20 20 20 72 65 |();.    |}.    re|
|000035f0| 74 75 72 6e 20 30 3b 0d | 7d 20 2f 2a 20 66 6c 74 |turn 0;.|} /* flt|
|00003600| 5f 74 65 73 74 5f 5f 20 | 2a 2f 0d 0d 2f 2a 2a 2a |_test__ |*/../***|
|00003610| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003620| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003630| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003640| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003650| 2a 2a 2a 2a 2a 2a 2a 2f | 0d 0d 2f 2a 20 09 53 75 |*******/|../* .Su|
|00003660| 62 72 6f 75 74 69 6e 65 | 20 74 6f 20 64 6f 20 74 |broutine| to do t|
|00003670| 68 65 20 61 6c 67 65 62 | 72 61 69 63 20 66 75 6e |he algeb|raic fun|
|00003680| 63 74 69 6f 6e 20 74 65 | 73 74 73 20 2a 2f 0d 0d |ction te|sts */..|
|00003690| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|000036a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000036b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000036c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000036d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2f 0d 2f 2a 20 |********|***/./* |
|000036e0| 53 75 62 72 6f 75 74 69 | 6e 65 20 2a 2f 20 69 6e |Subrouti|ne */ in|
|000036f0| 74 20 61 6c 67 5f 74 65 | 73 74 5f 5f 28 69 6e 74 |t alg_te|st__(int|
|00003700| 65 67 65 72 20 2a 6d 29 | 0d 7b 0d 20 20 20 20 2f |eger *m)|.{.    /|
|00003710| 2a 20 46 6f 72 6d 61 74 | 20 73 74 72 69 6e 67 73 |* Format| strings|
|00003720| 20 2a 2f 0d 20 20 20 20 | 73 74 61 74 69 63 20 63 | */.    |static c|
|00003730| 68 61 72 20 66 6d 74 5f | 33 30 35 5b 5d 20 3d 20 |har fmt_|305[] = |
|00003740| 22 28 31 30 78 2c 5c 30 | 30 32 78 5c 30 30 32 2c |"(10x,\0|02x\002,|
|00003750| 37 78 2c 5c 30 30 32 53 | 51 52 54 28 78 29 5c 30 |7x,\002S|QRT(x)\0|
|00003760| 30 32 2c 34 78 2c 5c 30 | 30 32 43 55 52 54 5c 0d |02,4x,\0|02CURT\.|
|00003770| 28 78 29 5c 30 30 32 2c | 33 78 2c 5c 30 30 32 53 |(x)\002,|3x,\002S|
|00003780| 51 52 54 28 78 29 5e 32 | 5c 30 30 32 2c 32 78 2c |QRT(x)^2|\002,2x,|
|00003790| 5c 30 30 32 43 55 52 54 | 28 78 29 5e 33 5c 30 30 |\002CURT|(x)^3\00|
|000037a0| 32 29 22 3b 0d 20 20 20 | 20 73 74 61 74 69 63 20 |2)";.   | static |
|000037b0| 63 68 61 72 20 66 6d 74 | 5f 33 30 31 5b 5d 20 3d |char fmt|_301[] =|
|000037c0| 20 22 28 35 78 2c 36 28 | 66 39 2e 36 2c 32 78 29 | "(5x,6(|f9.6,2x)|
|000037d0| 29 22 3b 0d 0d 20 20 20 | 20 2f 2a 20 53 79 73 74 |)";..   | /* Syst|
|000037e0| 65 6d 20 67 65 6e 65 72 | 61 74 65 64 20 6c 6f 63 |em gener|ated loc|
|000037f0| 61 6c 73 20 2a 2f 0d 20 | 20 20 20 69 6e 74 65 67 |als */. |   integ|
|00003800| 65 72 20 69 5f 5f 31 3b | 0d 20 20 20 20 72 65 61 |er i__1;|.    rea|
|00003810| 6c 20 72 5f 5f 31 2c 20 | 72 5f 5f 32 2c 20 72 5f |l r__1, |r__2, r_|
|00003820| 5f 33 2c 20 72 5f 5f 34 | 2c 20 72 5f 5f 35 3b 0d |_3, r__4|, r__5;.|
|00003830| 20 20 20 20 64 6f 75 62 | 6c 65 72 65 61 6c 20 64 |    doub|lereal d|
|00003840| 5f 5f 31 3b 0d 0d 20 20 | 20 20 2f 2a 20 42 75 69 |__1;..  |  /* Bui|
|00003850| 6c 74 69 6e 20 66 75 6e | 63 74 69 6f 6e 73 20 2a |ltin fun|ctions *|
|00003860| 2f 0d 20 20 20 20 69 6e | 74 65 67 65 72 20 73 5f |/.    in|teger s_|
|00003870| 77 73 6c 65 28 63 69 6c | 69 73 74 20 2a 29 2c 20 |wsle(cil|ist *), |
|00003880| 64 6f 5f 6c 69 6f 28 69 | 6e 74 65 67 65 72 20 2a |do_lio(i|nteger *|
|00003890| 2c 20 69 6e 74 65 67 65 | 72 20 2a 2c 20 63 68 61 |, intege|r *, cha|
|000038a0| 72 20 2a 2c 20 66 74 6e | 6c 65 6e 29 2c 20 0d 09 |r *, ftn|len), ..|
|000038b0| 20 20 20 20 65 5f 77 73 | 6c 65 28 29 2c 20 73 5f |    e_ws|le(), s_|
|000038c0| 77 73 66 65 28 63 69 6c | 69 73 74 20 2a 29 2c 20 |wsfe(cil|ist *), |
|000038d0| 65 5f 77 73 66 65 28 29 | 3b 0d 20 20 20 20 64 6f |e_wsfe()|;.    do|
|000038e0| 75 62 6c 65 20 73 71 72 | 74 28 64 6f 75 62 6c 65 |uble sqr|t(double|
|000038f0| 72 65 61 6c 29 2c 20 70 | 6f 77 5f 64 64 28 64 6f |real), p|ow_dd(do|
|00003900| 75 62 6c 65 72 65 61 6c | 20 2a 2c 20 64 6f 75 62 |ublereal| *, doub|
|00003910| 6c 65 72 65 61 6c 20 2a | 29 3b 0d 20 20 20 20 69 |lereal *|);.    i|
|00003920| 6e 74 65 67 65 72 20 64 | 6f 5f 66 69 6f 28 69 6e |nteger d|o_fio(in|
|00003930| 74 65 67 65 72 20 2a 2c | 20 63 68 61 72 20 2a 2c |teger *,| char *,|
|00003940| 20 66 74 6e 6c 65 6e 29 | 3b 0d 0d 20 20 20 20 2f | ftnlen)|;..    /|
|00003950| 2a 20 4c 6f 63 61 6c 20 | 76 61 72 69 61 62 6c 65 |* Local |variable|
|00003960| 73 20 2a 2f 0d 20 20 20 | 20 69 6e 74 65 67 65 72 |s */.   | integer|
|00003970| 20 69 3b 0d 20 20 20 20 | 72 65 61 6c 20 78 31 2c | i;.    |real x1,|
|00003980| 20 78 32 2c 20 78 33 3b | 0d 0d 20 20 20 20 2f 2a | x2, x3;|..    /*|
|00003990| 20 46 6f 72 74 72 61 6e | 20 49 2f 4f 20 62 6c 6f | Fortran| I/O blo|
|000039a0| 63 6b 73 20 2a 2f 0d 20 | 20 20 20 73 74 61 74 69 |cks */. |   stati|
|000039b0| 63 20 63 69 6c 69 73 74 | 20 69 6f 5f 5f 5f 36 31 |c cilist| io___61|
|000039c0| 20 3d 20 7b 20 30 2c 20 | 36 2c 20 30 2c 20 30 2c | = { 0, |6, 0, 0,|
|000039d0| 20 30 20 7d 3b 0d 20 20 | 20 20 73 74 61 74 69 63 | 0 };.  |  static|
|000039e0| 20 63 69 6c 69 73 74 20 | 69 6f 5f 5f 5f 36 32 20 | cilist |io___62 |
|000039f0| 3d 20 7b 20 30 2c 20 36 | 2c 20 30 2c 20 66 6d 74 |= { 0, 6|, 0, fmt|
|00003a00| 5f 33 30 35 2c 20 30 20 | 7d 3b 0d 20 20 20 20 73 |_305, 0 |};.    s|
|00003a10| 74 61 74 69 63 20 63 69 | 6c 69 73 74 20 69 6f 5f |tatic ci|list io_|
|00003a20| 5f 5f 36 37 20 3d 20 7b | 20 30 2c 20 36 2c 20 30 |__67 = {| 0, 6, 0|
|00003a30| 2c 20 66 6d 74 5f 33 30 | 31 2c 20 30 20 7d 3b 0d |, fmt_30|1, 0 };.|
|00003a40| 0d 0d 20 20 20 20 73 5f | 77 73 6c 65 28 26 69 6f |..    s_|wsle(&io|
|00003a50| 5f 5f 5f 36 31 29 3b 0d | 20 20 20 20 64 6f 5f 6c |___61);.|    do_l|
|00003a60| 69 6f 28 26 63 5f 5f 39 | 2c 20 26 63 5f 5f 31 2c |io(&c__9|, &c__1,|
|00003a70| 20 22 5c 6e 47 65 6e 65 | 72 61 74 65 20 61 20 74 | "\nGene|rate a t|
|00003a80| 61 62 6c 65 20 6f 66 20 | 66 6c 6f 61 74 73 2c 20 |able of |floats, |
|00003a90| 73 71 75 61 72 65 20 26 | 20 63 75 62 65 20 72 6f |square &| cube ro|
|00003aa0| 6f 74 73 2c 5c 0d 20 61 | 6e 64 20 74 68 65 69 72 |ots,\. a|nd their|
|00003ab0| 20 73 71 75 61 72 65 73 | 20 26 20 63 75 62 65 73 | squares| & cubes|
|00003ac0| 2e 5c 6e 22 2c 20 37 37 | 4c 29 3b 0d 20 20 20 20 |.\n", 77|L);.    |
|00003ad0| 65 5f 77 73 6c 65 28 29 | 3b 0d 20 20 20 20 73 5f |e_wsle()|;.    s_|
|00003ae0| 77 73 66 65 28 26 69 6f | 5f 5f 5f 36 32 29 3b 0d |wsfe(&io|___62);.|
|00003af0| 20 20 20 20 65 5f 77 73 | 66 65 28 29 3b 0d 20 20 |    e_ws|fe();.  |
|00003b00| 20 20 69 5f 5f 31 20 3d | 20 2a 6d 3b 0d 20 20 20 |  i__1 =| *m;.   |
|00003b10| 20 66 6f 72 20 28 69 20 | 3d 20 31 3b 20 69 20 3c | for (i |= 1; i <|
|00003b20| 3d 20 69 5f 5f 31 3b 20 | 2b 2b 69 29 20 7b 0d 09 |= i__1; |++i) {..|
|00003b30| 78 31 20 3d 20 69 20 2a | 20 28 66 6c 6f 61 74 29 |x1 = i *| (float)|
|00003b40| 31 2e 3b 0d 09 78 32 20 | 3d 20 73 71 72 74 28 78 |1.;..x2 |= sqrt(x|
|00003b50| 31 29 3b 0d 09 64 5f 5f | 31 20 3d 20 28 64 6f 75 |1);..d__|1 = (dou|
|00003b60| 62 6c 65 72 65 61 6c 29 | 20 78 31 3b 0d 09 78 33 |blereal)| x1;..x3|
|00003b70| 20 3d 20 70 6f 77 5f 64 | 64 28 26 64 5f 5f 31 2c | = pow_d|d(&d__1,|
|00003b80| 20 26 63 5f 62 31 36 38 | 29 3b 0d 09 73 5f 77 73 | &c_b168|);..s_ws|
|00003b90| 66 65 28 26 69 6f 5f 5f | 5f 36 37 29 3b 0d 09 64 |fe(&io__|_67);..d|
|00003ba0| 6f 5f 66 69 6f 28 26 63 | 5f 5f 31 2c 20 28 63 68 |o_fio(&c|__1, (ch|
|00003bb0| 61 72 20 2a 29 26 78 31 | 2c 20 28 66 74 6e 6c 65 |ar *)&x1|, (ftnle|
|00003bc0| 6e 29 73 69 7a 65 6f 66 | 28 72 65 61 6c 29 29 3b |n)sizeof|(real));|
|00003bd0| 0d 09 64 6f 5f 66 69 6f | 28 26 63 5f 5f 31 2c 20 |..do_fio|(&c__1, |
|00003be0| 28 63 68 61 72 20 2a 29 | 26 78 32 2c 20 28 66 74 |(char *)|&x2, (ft|
|00003bf0| 6e 6c 65 6e 29 73 69 7a | 65 6f 66 28 72 65 61 6c |nlen)siz|eof(real|
|00003c00| 29 29 3b 0d 09 64 6f 5f | 66 69 6f 28 26 63 5f 5f |));..do_|fio(&c__|
|00003c10| 31 2c 20 28 63 68 61 72 | 20 2a 29 26 78 33 2c 20 |1, (char| *)&x3, |
|00003c20| 28 66 74 6e 6c 65 6e 29 | 73 69 7a 65 6f 66 28 72 |(ftnlen)|sizeof(r|
|00003c30| 65 61 6c 29 29 3b 0d 2f | 2a 20 43 6f 6d 70 75 74 |eal));./|* Comput|
|00003c40| 69 6e 67 20 32 6e 64 20 | 70 6f 77 65 72 20 2a 2f |ing 2nd |power */|
|00003c50| 0d 09 72 5f 5f 32 20 3d | 20 78 32 3b 0d 09 72 5f |..r__2 =| x2;..r_|
|00003c60| 5f 31 20 3d 20 72 5f 5f | 32 20 2a 20 72 5f 5f 32 |_1 = r__|2 * r__2|
|00003c70| 3b 0d 09 64 6f 5f 66 69 | 6f 28 26 63 5f 5f 31 2c |;..do_fi|o(&c__1,|
|00003c80| 20 28 63 68 61 72 20 2a | 29 26 72 5f 5f 31 2c 20 | (char *|)&r__1, |
|00003c90| 28 66 74 6e 6c 65 6e 29 | 73 69 7a 65 6f 66 28 72 |(ftnlen)|sizeof(r|
|00003ca0| 65 61 6c 29 29 3b 0d 2f | 2a 20 43 6f 6d 70 75 74 |eal));./|* Comput|
|00003cb0| 69 6e 67 20 33 72 64 20 | 70 6f 77 65 72 20 2a 2f |ing 3rd |power */|
|00003cc0| 0d 09 72 5f 5f 34 20 3d | 20 78 33 2c 20 72 5f 5f |..r__4 =| x3, r__|
|00003cd0| 35 20 3d 20 72 5f 5f 34 | 3b 0d 09 72 5f 5f 33 20 |5 = r__4|;..r__3 |
|00003ce0| 3d 20 72 5f 5f 35 20 2a | 20 28 72 5f 5f 34 20 2a |= r__5 *| (r__4 *|
|00003cf0| 20 72 5f 5f 34 29 3b 0d | 09 64 6f 5f 66 69 6f 28 | r__4);.|.do_fio(|
|00003d00| 26 63 5f 5f 31 2c 20 28 | 63 68 61 72 20 2a 29 26 |&c__1, (|char *)&|
|00003d10| 72 5f 5f 33 2c 20 28 66 | 74 6e 6c 65 6e 29 73 69 |r__3, (f|tnlen)si|
|00003d20| 7a 65 6f 66 28 72 65 61 | 6c 29 29 3b 0d 09 65 5f |zeof(rea|l));..e_|
|00003d30| 77 73 66 65 28 29 3b 0d | 20 20 20 20 7d 0d 20 20 |wsfe();.|    }.  |
|00003d40| 20 20 72 65 74 75 72 6e | 20 30 3b 0d 7d 20 2f 2a |  return| 0;.} /*|
|00003d50| 20 61 6c 67 5f 74 65 73 | 74 5f 5f 20 2a 2f 0d 0d | alg_tes|t__ */..|
|00003d60| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00003d70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003da0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2f 0d 0d 2f 2a |********|***/../*|
|00003db0| 20 09 53 75 62 72 6f 75 | 74 69 6e 65 20 74 6f 20 | .Subrou|tine to |
|00003dc0| 64 6f 20 74 68 65 20 74 | 72 61 6e 73 63 65 6e 64 |do the t|ranscend|
|00003dd0| 65 6e 74 61 6c 20 66 75 | 6e 63 74 69 6f 6e 20 74 |ental fu|nction t|
|00003de0| 65 73 74 73 20 2a 2f 0d | 0d 2f 2a 2a 2a 2a 2a 2a |ests */.|./******|
|00003df0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e30| 2a 2a 2a 2a 2f 0d 2f 2a | 20 53 75 62 72 6f 75 74 |****/./*| Subrout|
|00003e40| 69 6e 65 20 2a 2f 20 69 | 6e 74 20 74 72 6e 5f 74 |ine */ i|nt trn_t|
|00003e50| 65 73 74 5f 5f 28 29 0d | 7b 0d 20 20 20 20 2f 2a |est__().|{.    /*|
|00003e60| 20 46 6f 72 6d 61 74 20 | 73 74 72 69 6e 67 73 20 | Format |strings |
|00003e70| 2a 2f 0d 20 20 20 20 73 | 74 61 74 69 63 20 63 68 |*/.    s|tatic ch|
|00003e80| 61 72 20 66 6d 74 5f 32 | 30 37 5b 5d 20 3d 20 22 |ar fmt_2|07[] = "|
|00003e90| 28 39 78 2c 5c 30 30 32 | 78 5c 30 30 32 2c 39 78 |(9x,\002|x\002,9x|
|00003ea0| 2c 5c 30 30 32 73 69 6e | 28 78 29 5c 30 30 32 2c |,\002sin|(x)\002,|
|00003eb0| 38 78 2c 5c 30 30 32 63 | 6f 73 28 78 5c 0d 29 5c |8x,\002c|os(x\.)\|
|00003ec0| 30 30 32 2c 34 78 2c 5c | 30 30 32 73 69 6e 28 78 |002,4x,\|002sin(x|
|00003ed0| 29 5e 32 20 2b 20 63 6f | 73 28 78 29 5e 32 5c 30 |)^2 + co|s(x)^2\0|
|00003ee0| 30 32 29 22 3b 0d 20 20 | 20 20 73 74 61 74 69 63 |02)";.  |  static|
|00003ef0| 20 63 68 61 72 20 66 6d | 74 5f 32 30 30 5b 5d 20 | char fm|t_200[] |
|00003f00| 3d 20 22 28 35 78 2c 69 | 32 2c 5c 30 30 32 2a 70 |= "(5x,i|2,\002*p|
|00003f10| 69 2f 36 5c 30 30 32 33 | 78 2c 66 31 31 2e 38 2c |i/6\0023|x,f11.8,|
|00003f20| 33 78 2c 66 31 31 2e 38 | 2c 33 78 2c 66 31 35 2e |3x,f11.8|,3x,f15.|
|00003f30| 31 30 29 22 0d 09 20 20 | 20 20 3b 0d 20 20 20 20 |10)"..  |  ;.    |
|00003f40| 73 74 61 74 69 63 20 63 | 68 61 72 20 66 6d 74 5f |static c|har fmt_|
|00003f50| 32 39 39 5b 5d 20 3d 20 | 22 28 61 31 29 22 3b 0d |299[] = |"(a1)";.|
|00003f60| 20 20 20 20 73 74 61 74 | 69 63 20 63 68 61 72 20 |    stat|ic char |
|00003f70| 66 6d 74 5f 32 30 38 5b | 5d 20 3d 20 22 28 31 31 |fmt_208[|] = "(11|
|00003f80| 78 2c 5c 30 30 32 78 5c | 30 30 32 2c 31 36 78 2c |x,\002x\|002,16x,|
|00003f90| 5c 30 30 32 6c 6f 67 28 | 78 29 5c 30 30 32 2c 39 |\002log(|x)\002,9|
|00003fa0| 78 2c 5c 30 30 32 65 78 | 70 28 6c 6f 5c 0d 67 28 |x,\002ex|p(lo\.g(|
|00003fb0| 78 29 29 5c 30 30 32 29 | 22 3b 0d 20 20 20 20 73 |x))\002)|";.    s|
|00003fc0| 74 61 74 69 63 20 63 68 | 61 72 20 66 6d 74 5f 32 |tatic ch|ar fmt_2|
|00003fd0| 30 31 5b 5d 20 3d 20 22 | 28 35 78 2c 66 31 33 2e |01[] = "|(5x,f13.|
|00003fe0| 31 30 2c 35 78 2c 66 31 | 33 2e 31 30 2c 35 78 2c |10,5x,f1|3.10,5x,|
|00003ff0| 66 31 33 2e 31 30 29 22 | 3b 0d 0d 20 20 20 20 2f |f13.10)"|;..    /|
|00004000| 2a 20 53 79 73 74 65 6d | 20 67 65 6e 65 72 61 74 |* System| generat|
|00004010| 65 64 20 6c 6f 63 61 6c | 73 20 2a 2f 0d 20 20 20 |ed local|s */.   |
|00004020| 20 64 6f 75 62 6c 65 72 | 65 61 6c 20 64 5f 5f 31 | doubler|eal d__1|
|00004030| 3b 0d 0d 20 20 20 20 2f | 2a 20 42 75 69 6c 74 69 |;..    /|* Builti|
|00004040| 6e 20 66 75 6e 63 74 69 | 6f 6e 73 20 2a 2f 0d 20 |n functi|ons */. |
|00004050| 20 20 20 69 6e 74 65 67 | 65 72 20 73 5f 77 73 6c |   integ|er s_wsl|
|00004060| 65 28 63 69 6c 69 73 74 | 20 2a 29 2c 20 64 6f 5f |e(cilist| *), do_|
|00004070| 6c 69 6f 28 69 6e 74 65 | 67 65 72 20 2a 2c 20 69 |lio(inte|ger *, i|
|00004080| 6e 74 65 67 65 72 20 2a | 2c 20 63 68 61 72 20 2a |nteger *|, char *|
|00004090| 2c 20 66 74 6e 6c 65 6e | 29 2c 20 0d 09 20 20 20 |, ftnlen|), ..   |
|000040a0| 20 65 5f 77 73 6c 65 28 | 29 2c 20 73 5f 77 73 66 | e_wsle(|), s_wsf|
|000040b0| 65 28 63 69 6c 69 73 74 | 20 2a 29 2c 20 65 5f 77 |e(cilist| *), e_w|
|000040c0| 73 66 65 28 29 3b 0d 20 | 20 20 20 64 6f 75 62 6c |sfe();. |   doubl|
|000040d0| 65 20 73 69 6e 28 64 6f | 75 62 6c 65 72 65 61 6c |e sin(do|ublereal|
|000040e0| 29 2c 20 63 6f 73 28 64 | 6f 75 62 6c 65 72 65 61 |), cos(d|oublerea|
|000040f0| 6c 29 3b 0d 20 20 20 20 | 69 6e 74 65 67 65 72 20 |l);.    |integer |
|00004100| 64 6f 5f 66 69 6f 28 69 | 6e 74 65 67 65 72 20 2a |do_fio(i|nteger *|
|00004110| 2c 20 63 68 61 72 20 2a | 2c 20 66 74 6e 6c 65 6e |, char *|, ftnlen|
|00004120| 29 2c 20 73 5f 72 73 66 | 65 28 63 69 6c 69 73 74 |), s_rsf|e(cilist|
|00004130| 20 2a 29 2c 20 65 5f 72 | 73 66 65 28 29 3b 0d 20 | *), e_r|sfe();. |
|00004140| 20 20 20 64 6f 75 62 6c | 65 20 6c 6f 67 28 64 6f |   doubl|e log(do|
|00004150| 75 62 6c 65 72 65 61 6c | 29 2c 20 65 78 70 28 64 |ublereal|), exp(d|
|00004160| 6f 75 62 6c 65 72 65 61 | 6c 29 3b 0d 0d 20 20 20 |oublerea|l);..   |
|00004170| 20 2f 2a 20 4c 6f 63 61 | 6c 20 76 61 72 69 61 62 | /* Loca|l variab|
|00004180| 6c 65 73 20 2a 2f 0d 20 | 20 20 20 63 68 61 72 20 |les */. |   char |
|00004190| 6a 75 6e 6b 5b 32 5d 3b | 0d 20 20 20 20 64 6f 75 |junk[2];|.    dou|
|000041a0| 62 6c 65 72 65 61 6c 20 | 63 3b 0d 20 20 20 20 69 |blereal |c;.    i|
|000041b0| 6e 74 65 67 65 72 20 69 | 3b 0d 20 20 20 20 64 6f |nteger i|;.    do|
|000041c0| 75 62 6c 65 72 65 61 6c | 20 73 2c 20 78 2c 20 63 |ublereal| s, x, c|
|000041d0| 32 2c 20 73 32 2c 20 70 | 69 3b 0d 0d 20 20 20 20 |2, s2, p|i;..    |
|000041e0| 2f 2a 20 46 6f 72 74 72 | 61 6e 20 49 2f 4f 20 62 |/* Fortr|an I/O b|
|000041f0| 6c 6f 63 6b 73 20 2a 2f | 0d 20 20 20 20 73 74 61 |locks */|.    sta|
|00004200| 74 69 63 20 63 69 6c 69 | 73 74 20 69 6f 5f 5f 5f |tic cili|st io___|
|00004210| 36 39 20 3d 20 7b 20 30 | 2c 20 36 2c 20 30 2c 20 |69 = { 0|, 6, 0, |
|00004220| 30 2c 20 30 20 7d 3b 0d | 20 20 20 20 73 74 61 74 |0, 0 };.|    stat|
|00004230| 69 63 20 63 69 6c 69 73 | 74 20 69 6f 5f 5f 5f 37 |ic cilis|t io___7|
|00004240| 30 20 3d 20 7b 20 30 2c | 20 36 2c 20 30 2c 20 30 |0 = { 0,| 6, 0, 0|
|00004250| 2c 20 30 20 7d 3b 0d 20 | 20 20 20 73 74 61 74 69 |, 0 };. |   stati|
|00004260| 63 20 63 69 6c 69 73 74 | 20 69 6f 5f 5f 5f 37 31 |c cilist| io___71|
|00004270| 20 3d 20 7b 20 30 2c 20 | 36 2c 20 30 2c 20 66 6d | = { 0, |6, 0, fm|
|00004280| 74 5f 32 30 37 2c 20 30 | 20 7d 3b 0d 20 20 20 20 |t_207, 0| };.    |
|00004290| 73 74 61 74 69 63 20 63 | 69 6c 69 73 74 20 69 6f |static c|ilist io|
|000042a0| 5f 5f 5f 37 38 20 3d 20 | 7b 20 30 2c 20 36 2c 20 |___78 = |{ 0, 6, |
|000042b0| 30 2c 20 66 6d 74 5f 32 | 30 30 2c 20 30 20 7d 3b |0, fmt_2|00, 0 };|
|000042c0| 0d 20 20 20 20 73 74 61 | 74 69 63 20 63 69 6c 69 |.    sta|tic cili|
|000042d0| 73 74 20 69 6f 5f 5f 5f | 37 39 20 3d 20 7b 20 30 |st io___|79 = { 0|
|000042e0| 2c 20 36 2c 20 30 2c 20 | 30 2c 20 30 20 7d 3b 0d |, 6, 0, |0, 0 };.|
|000042f0| 20 20 20 20 73 74 61 74 | 69 63 20 63 69 6c 69 73 |    stat|ic cilis|
|00004300| 74 20 69 6f 5f 5f 5f 38 | 30 20 3d 20 7b 20 30 2c |t io___8|0 = { 0,|
|00004310| 20 35 2c 20 30 2c 20 66 | 6d 74 5f 32 39 39 2c 20 | 5, 0, f|mt_299, |
|00004320| 30 20 7d 3b 0d 20 20 20 | 20 73 74 61 74 69 63 20 |0 };.   | static |
|00004330| 63 69 6c 69 73 74 20 69 | 6f 5f 5f 5f 38 32 20 3d |cilist i|o___82 =|
|00004340| 20 7b 20 30 2c 20 36 2c | 20 30 2c 20 30 2c 20 30 | { 0, 6,| 0, 0, 0|
|00004350| 20 7d 3b 0d 20 20 20 20 | 73 74 61 74 69 63 20 63 | };.    |static c|
|00004360| 69 6c 69 73 74 20 69 6f | 5f 5f 5f 38 33 20 3d 20 |ilist io|___83 = |
|00004370| 7b 20 30 2c 20 36 2c 20 | 30 2c 20 66 6d 74 5f 32 |{ 0, 6, |0, fmt_2|
|00004380| 30 38 2c 20 30 20 7d 3b | 0d 20 20 20 20 73 74 61 |08, 0 };|.    sta|
|00004390| 74 69 63 20 63 69 6c 69 | 73 74 20 69 6f 5f 5f 5f |tic cili|st io___|
|000043a0| 38 34 20 3d 20 7b 20 30 | 2c 20 36 2c 20 30 2c 20 |84 = { 0|, 6, 0, |
|000043b0| 66 6d 74 5f 32 30 31 2c | 20 30 20 7d 3b 0d 0d 0d |fmt_201,| 0 };...|
|000043c0| 20 20 20 20 70 69 20 3d | 20 28 66 6c 6f 61 74 29 |    pi =| (float)|
|000043d0| 33 2e 31 34 31 35 39 32 | 36 35 33 35 38 39 37 39 |3.141592|65358979|
|000043e0| 33 3b 0d 20 20 20 20 73 | 5f 77 73 6c 65 28 26 69 |3;.    s|_wsle(&i|
|000043f0| 6f 5f 5f 5f 36 39 29 3b | 0d 20 20 20 20 64 6f 5f |o___69);|.    do_|
|00004400| 6c 69 6f 28 26 63 5f 5f | 39 2c 20 26 63 5f 5f 31 |lio(&c__|9, &c__1|
|00004410| 2c 20 22 5c 6e 50 61 72 | 74 20 31 3a 20 54 72 69 |, "\nPar|t 1: Tri|
|00004420| 67 20 46 75 6e 63 74 69 | 6f 6e 73 22 2c 20 32 33 |g Functi|ons", 23|
|00004430| 4c 29 3b 0d 20 20 20 20 | 65 5f 77 73 6c 65 28 29 |L);.    |e_wsle()|
|00004440| 3b 0d 20 20 20 20 73 5f | 77 73 6c 65 28 26 69 6f |;.    s_|wsle(&io|
|00004450| 5f 5f 5f 37 30 29 3b 0d | 20 20 20 20 64 6f 5f 6c |___70);.|    do_l|
|00004460| 69 6f 28 26 63 5f 5f 39 | 2c 20 26 63 5f 5f 31 2c |io(&c__9|, &c__1,|
|00004470| 20 22 5c 6e 47 65 6e 65 | 72 61 74 65 20 61 20 74 | "\nGene|rate a t|
|00004480| 61 62 6c 65 20 6f 66 20 | 78 2c 20 73 69 6e 28 78 |able of |x, sin(x|
|00004490| 29 2c 20 63 6f 73 28 78 | 29 20 61 6e 64 20 74 68 |), cos(x|) and th|
|000044a0| 65 20 73 75 5c 0d 6d 20 | 6f 66 20 74 68 65 69 72 |e su\.m |of their|
|000044b0| 20 73 71 75 61 72 65 73 | 2e 5c 6e 22 2c 20 36 39 | squares|.\n", 69|
|000044c0| 4c 29 3b 0d 20 20 20 20 | 65 5f 77 73 6c 65 28 29 |L);.    |e_wsle()|
|000044d0| 3b 0d 20 20 20 20 73 5f | 77 73 66 65 28 26 69 6f |;.    s_|wsfe(&io|
|000044e0| 5f 5f 5f 37 31 29 3b 0d | 20 20 20 20 65 5f 77 73 |___71);.|    e_ws|
|000044f0| 66 65 28 29 3b 0d 20 20 | 20 20 66 6f 72 20 28 69 |fe();.  |  for (i|
|00004500| 20 3d 20 31 3b 20 69 20 | 3c 3d 20 31 32 3b 20 2b | = 1; i |<= 12; +|
|00004510| 2b 69 29 20 7b 0d 09 78 | 20 3d 20 69 20 2a 20 70 |+i) {..x| = i * p|
|00004520| 69 20 2f 20 28 66 6c 6f | 61 74 29 36 2e 3b 0d 09 |i / (flo|at)6.;..|
|00004530| 73 20 3d 20 73 69 6e 28 | 78 29 3b 0d 09 63 20 3d |s = sin(|x);..c =|
|00004540| 20 63 6f 73 28 78 29 3b | 0d 2f 2a 20 43 6f 6d 70 | cos(x);|./* Comp|
|00004550| 75 74 69 6e 67 20 32 6e | 64 20 70 6f 77 65 72 20 |uting 2n|d power |
|00004560| 2a 2f 0d 09 64 5f 5f 31 | 20 3d 20 73 3b 0d 09 73 |*/..d__1| = s;..s|
|00004570| 32 20 3d 20 64 5f 5f 31 | 20 2a 20 64 5f 5f 31 3b |2 = d__1| * d__1;|
|00004580| 0d 2f 2a 20 43 6f 6d 70 | 75 74 69 6e 67 20 32 6e |./* Comp|uting 2n|
|00004590| 64 20 70 6f 77 65 72 20 | 2a 2f 0d 09 64 5f 5f 31 |d power |*/..d__1|
|000045a0| 20 3d 20 63 3b 0d 09 63 | 32 20 3d 20 64 5f 5f 31 | = c;..c|2 = d__1|
|000045b0| 20 2a 20 64 5f 5f 31 3b | 0d 09 73 5f 77 73 66 65 | * d__1;|..s_wsfe|
|000045c0| 28 26 69 6f 5f 5f 5f 37 | 38 29 3b 0d 09 64 6f 5f |(&io___7|8);..do_|
|000045d0| 66 69 6f 28 26 63 5f 5f | 31 2c 20 28 63 68 61 72 |fio(&c__|1, (char|
|000045e0| 20 2a 29 26 69 2c 20 28 | 66 74 6e 6c 65 6e 29 73 | *)&i, (|ftnlen)s|
|000045f0| 69 7a 65 6f 66 28 69 6e | 74 65 67 65 72 29 29 3b |izeof(in|teger));|
|00004600| 0d 09 64 6f 5f 66 69 6f | 28 26 63 5f 5f 31 2c 20 |..do_fio|(&c__1, |
|00004610| 28 63 68 61 72 20 2a 29 | 26 73 2c 20 28 66 74 6e |(char *)|&s, (ftn|
|00004620| 6c 65 6e 29 73 69 7a 65 | 6f 66 28 64 6f 75 62 6c |len)size|of(doubl|
|00004630| 65 72 65 61 6c 29 29 3b | 0d 09 64 6f 5f 66 69 6f |ereal));|..do_fio|
|00004640| 28 26 63 5f 5f 31 2c 20 | 28 63 68 61 72 20 2a 29 |(&c__1, |(char *)|
|00004650| 26 63 2c 20 28 66 74 6e | 6c 65 6e 29 73 69 7a 65 |&c, (ftn|len)size|
|00004660| 6f 66 28 64 6f 75 62 6c | 65 72 65 61 6c 29 29 3b |of(doubl|ereal));|
|00004670| 0d 09 64 5f 5f 31 20 3d | 20 73 32 20 2b 20 63 32 |..d__1 =| s2 + c2|
|00004680| 3b 0d 09 64 6f 5f 66 69 | 6f 28 26 63 5f 5f 31 2c |;..do_fi|o(&c__1,|
|00004690| 20 28 63 68 61 72 20 2a | 29 26 64 5f 5f 31 2c 20 | (char *|)&d__1, |
|000046a0| 28 66 74 6e 6c 65 6e 29 | 73 69 7a 65 6f 66 28 64 |(ftnlen)|sizeof(d|
|000046b0| 6f 75 62 6c 65 72 65 61 | 6c 29 29 3b 0d 09 65 5f |oublerea|l));..e_|
|000046c0| 77 73 66 65 28 29 3b 0d | 20 20 20 20 7d 0d 20 20 |wsfe();.|    }.  |
|000046d0| 20 20 73 5f 77 73 6c 65 | 28 26 69 6f 5f 5f 5f 37 |  s_wsle|(&io___7|
|000046e0| 39 29 3b 0d 20 20 20 20 | 64 6f 5f 6c 69 6f 28 26 |9);.    |do_lio(&|
|000046f0| 63 5f 5f 39 2c 20 26 63 | 5f 5f 31 2c 20 22 5c 6e |c__9, &c|__1, "\n|
|00004700| 50 61 72 74 20 32 3a 20 | 20 45 78 70 6f 6e 65 6e |Part 2: | Exponen|
|00004710| 74 69 61 6c 20 66 75 6e | 63 74 69 6f 6e 73 3b 20 |tial fun|ctions; |
|00004720| 68 69 74 20 72 65 74 75 | 72 6e 20 74 6f 20 63 6f |hit retu|rn to co|
|00004730| 5c 0d 6e 74 69 6e 75 65 | 2e 2e 2e 22 2c 20 35 38 |\.ntinue|...", 58|
|00004740| 4c 29 3b 0d 20 20 20 20 | 65 5f 77 73 6c 65 28 29 |L);.    |e_wsle()|
|00004750| 3b 0d 20 20 20 20 73 5f | 72 73 66 65 28 26 69 6f |;.    s_|rsfe(&io|
|00004760| 5f 5f 5f 38 30 29 3b 0d | 20 20 20 20 64 6f 5f 66 |___80);.|    do_f|
|00004770| 69 6f 28 26 63 5f 5f 31 | 2c 20 6a 75 6e 6b 2c 20 |io(&c__1|, junk, |
|00004780| 32 4c 29 3b 0d 20 20 20 | 20 65 5f 72 73 66 65 28 |2L);.   | e_rsfe(|
|00004790| 29 3b 0d 20 20 20 20 73 | 5f 77 73 6c 65 28 26 69 |);.    s|_wsle(&i|
|000047a0| 6f 5f 5f 5f 38 32 29 3b | 0d 20 20 20 20 64 6f 5f |o___82);|.    do_|
|000047b0| 6c 69 6f 28 26 63 5f 5f | 39 2c 20 26 63 5f 5f 31 |lio(&c__|9, &c__1|
|000047c0| 2c 20 22 47 65 6e 65 72 | 61 74 65 20 61 20 74 61 |, "Gener|ate a ta|
|000047d0| 62 6c 65 20 6f 66 20 78 | 2c 20 6c 6f 67 28 78 29 |ble of x|, log(x)|
|000047e0| 2c 20 61 6e 64 20 65 78 | 70 28 6c 6f 67 28 78 29 |, and ex|p(log(x)|
|000047f0| 29 5c 6e 22 2c 20 0d 09 | 20 20 20 20 34 37 4c 29 |)\n", ..|    47L)|
|00004800| 3b 0d 20 20 20 20 65 5f | 77 73 6c 65 28 29 3b 0d |;.    e_|wsle();.|
|00004810| 20 20 20 20 73 5f 77 73 | 66 65 28 26 69 6f 5f 5f |    s_ws|fe(&io__|
|00004820| 5f 38 33 29 3b 0d 20 20 | 20 20 65 5f 77 73 66 65 |_83);.  |  e_wsfe|
|00004830| 28 29 3b 0d 20 20 20 20 | 66 6f 72 20 28 69 20 3d |();.    |for (i =|
|00004840| 20 31 3b 20 69 20 3c 3d | 20 31 30 3b 20 2b 2b 69 | 1; i <=| 10; ++i|
|00004850| 29 20 7b 0d 09 78 20 3d | 20 28 64 6f 75 62 6c 65 |) {..x =| (double|
|00004860| 72 65 61 6c 29 20 69 3b | 0d 09 73 20 3d 20 6c 6f |real) i;|..s = lo|
|00004870| 67 28 78 29 3b 0d 09 63 | 20 3d 20 65 78 70 28 73 |g(x);..c| = exp(s|
|00004880| 29 3b 0d 09 73 5f 77 73 | 66 65 28 26 69 6f 5f 5f |);..s_ws|fe(&io__|
|00004890| 5f 38 34 29 3b 0d 09 64 | 6f 5f 66 69 6f 28 26 63 |_84);..d|o_fio(&c|
|000048a0| 5f 5f 31 2c 20 28 63 68 | 61 72 20 2a 29 26 78 2c |__1, (ch|ar *)&x,|
|000048b0| 20 28 66 74 6e 6c 65 6e | 29 73 69 7a 65 6f 66 28 | (ftnlen|)sizeof(|
|000048c0| 64 6f 75 62 6c 65 72 65 | 61 6c 29 29 3b 0d 09 64 |doublere|al));..d|
|000048d0| 6f 5f 66 69 6f 28 26 63 | 5f 5f 31 2c 20 28 63 68 |o_fio(&c|__1, (ch|
|000048e0| 61 72 20 2a 29 26 73 2c | 20 28 66 74 6e 6c 65 6e |ar *)&s,| (ftnlen|
|000048f0| 29 73 69 7a 65 6f 66 28 | 64 6f 75 62 6c 65 72 65 |)sizeof(|doublere|
|00004900| 61 6c 29 29 3b 0d 09 64 | 6f 5f 66 69 6f 28 26 63 |al));..d|o_fio(&c|
|00004910| 5f 5f 31 2c 20 28 63 68 | 61 72 20 2a 29 26 63 2c |__1, (ch|ar *)&c,|
|00004920| 20 28 66 74 6e 6c 65 6e | 29 73 69 7a 65 6f 66 28 | (ftnlen|)sizeof(|
|00004930| 64 6f 75 62 6c 65 72 65 | 61 6c 29 29 3b 0d 09 65 |doublere|al));..e|
|00004940| 5f 77 73 66 65 28 29 3b | 0d 20 20 20 20 7d 0d 20 |_wsfe();|.    }. |
|00004950| 20 20 20 72 65 74 75 72 | 6e 20 30 3b 0d 7d 20 2f |   retur|n 0;.} /|
|00004960| 2a 20 74 72 6e 5f 74 65 | 73 74 5f 5f 20 2a 2f 0d |* trn_te|st__ */.|
|00004970| 0d 2f 2a 20 4d 61 69 6e | 20 70 72 6f 67 72 61 6d |./* Main| program|
|00004980| 20 61 6c 69 61 73 20 2a | 2f 20 69 6e 74 20 74 65 | alias *|/ int te|
|00004990| 73 74 5f 66 32 63 5f 5f | 20 28 29 20 7b 20 4d 41 |st_f2c__| () { MA|
|000049a0| 49 4e 5f 5f 20 28 29 3b | 20 72 65 74 75 72 6e 20 |IN__ ();| return |
|000049b0| 30 3b 20 7d 0d 23 69 66 | 64 65 66 20 5f 5f 63 70 |0; }.#if|def __cp|
|000049c0| 6c 75 73 70 6c 75 73 0d | 09 7d 0d 23 65 6e 64 69 |lusplus.|.}.#endi|
|000049d0| 66 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |f.......|........|
|000049e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000049f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a00| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00004a10| 11 81 fc 56 11 81 fc 69 | 46 80 06 45 81 04 e8 4a |...V...i|F..E...J|
|00004a20| 80 06 45 81 05 08 4a 80 | 06 52 80 05 45 81 05 30 |..E...J.|.R..E..0|
|00004a30| 14 74 65 73 74 2e 63 70 | 20 28 43 2b 2b 20 4f 75 |.test.cp| (C++ Ou|
|00004a40| 74 70 75 74 29 75 02 00 | 00 00 50 61 72 74 53 49 |tput)u..|..PartSI|
|00004a50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00004a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a70| 00 00 ab f2 17 41 00 00 | 00 00 00 00 01 9a 02 2c |.....A..|.......,|
|00004a80| 39 78 2c 02 65 78 70 28 | 6c 6f 67 28 78 20 29 86 |9x,.exp(|log(x ).|
|00004a90| 02 29 00 28 61 31 29 41 | 91 28 35 78 2c 69 32 2c |.).(a1)A|.(5x,i2,|
|00004aa0| 02 2a 70 69 2f 36 02 33 | 78 2c 66 20 31 86 2e 38 |.*pi/6.3|x,f 1..8|
|00004ab0| 2c 33 78 2c 66 20 31 8c | 2e 38 2c 33 78 2c 66 31 |,3x,f 1.|.8,3x,f1|
|00004ac0| 35 2e 31 30 29 41 b8 28 | 39 78 2c 02 78 02 2c 39 |5.10)A.(|9x,.x.,9|
|00004ad0| 78 2c 02 73 69 6e 28 78 | 29 02 2c 38 78 2c 02 63 |x,.sin(x|).,8x,.c|
|00004ae0| 6f 73 28 78 29 02 2c 34 | 78 2c 02 73 69 6e 28 78 |os(x).,4|x,.sin(x|
|00004af0| 29 5e 32 20 2b 20 63 6f | 73 28 78 29 5e 32 02 29 |)^2 + co|s(x)^2.)|
|00004b00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00004b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004b20| 00 00 00 00 00 00 00 03 | 00 04 00 3d 00 0a 01 d7 |........|...=....|
|00004b30| 02 80 00 3d 00 0a 01 d7 | 02 80 ab 96 09 78 00 00 |...=....|.....x..|
|00004b40| 00 93 00 00 00 cb 00 00 | 35 8d 01 00 00 00 00 04 |........|5.......|
|00004b50| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|00004b60| 00 00 00 46 00 7b 92 28 | 0f cc 00 00 00 1c 00 46 |...F.{.(|.......F|
|00004b70| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00004b80| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00004b90| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|00004ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+